Delphi Soap Uygulamasında Client Ip’ini Yakalamak

function Getip: string; var mWebModule : TWebModule; Dispatcher : IWebDispatcherAccess; begin Result := ‘Tespit Edilemedi’; mWebModule := GetSOAPWebModule; if mWebModule <> nil then begin if Supports(mWebModule, IWebDispatcherAccess, Dispatcher) then Exit(Trim(Dispatcher.Request.RemoteAddr));…

Delphi ile DataSet To XML

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; XML.Encoding := ‘utf-8’; XML.Options := [doNodeAutoIndent]; PolisoftXMLExport := XML.AddChild(‘PolisoftXMLExport’); for…