Question

delphi dll封装indy

要求：
在dll内封装indy，并exe传入一个网页地址，让dll内的indy联网获取改网页源码～～。并显示在exe的memo上（写文件也行，但必须返回一个值）

要源码

符合条件及测试成功和出错的

再追加50

Answer 1

library Project1;

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.