delphi dll封裝indy

uses

SysUtils,

Classes,

IDHttp;

function HTTPGet(AURL: PChar):PChar;stdcall;

var

H: TIdHTTP;

URL, Res: String;

begin

H := TIdHTTP.Create(nil);

try

URL := string(AURL);

Res := H.Get(URL);

Result := PChar(Res);

finally

H.Free;

end;

end;

{$R *.res}

exports

HTTPGet;

begin

end.