Etiket: delphi language

Var XML : IXMLDOCUMENT; PolisoftXMLExport,TabloName,Field:IXMLNODE; i,a:integer; begin if Data.IsEmpty then begin ShowMessage(‘DataSet is not null’); Exit; end; XML := NewXMLDocument;…

function Getip: string; var mWebModule : TWebModule; Dispatcher : IWebDispatcherAccess; begin Result := ‘Tespit Edilemedi’; mWebModule := GetSOAPWebModule; if mWebModule…