请教DLL中使用idhttp控件 ( 积分: 50 )

  • 主题发起人 主题发起人 rsina
  • 开始时间 开始时间
R

rsina

Unregistered / Unconfirmed
GUEST, unregistred user!
在DLL中动态的使用idhttp控件编译不通过,是方法不对,还是我DLL编写的有问题啊?

unit search;

interface

uses
SysUtils,
Classes,
IdHTTP,
IdBaseComponent,
IdComponent,
IdTCPClient,
IdTCPConnection;

function search(DLLHandle: THandle
search_string: String
search_start,search_stop:String;
search_option:String): Boolean
export;

implementation


function search(DLLHandle: THandle
search_string: String
search_start,search_stop:String
search_option:String): Boolean;
var
idhttp: TIdhttp;
temp: String;
begin
idhttp := TIdhttp.Create(nil);
idhttp.Host := 'www.sina.com.cn';
idhttp.Port := 80;
temp := idhttp.Get('http://www.sina.com.cn'+search_string);
idhttp.Free;
result :=TRUE;
end;

end.
 
在DLL中动态的使用idhttp控件编译不通过,是方法不对,还是我DLL编写的有问题啊?

unit search;

interface

uses
SysUtils,
Classes,
IdHTTP,
IdBaseComponent,
IdComponent,
IdTCPClient,
IdTCPConnection;

function search(DLLHandle: THandle
search_string: String
search_start,search_stop:String;
search_option:String): Boolean
export;

implementation


function search(DLLHandle: THandle
search_string: String
search_start,search_stop:String
search_option:String): Boolean;
var
idhttp: TIdhttp;
temp: String;
begin
idhttp := TIdhttp.Create(nil);
idhttp.Host := 'www.sina.com.cn';
idhttp.Port := 80;
temp := idhttp.Get('http://www.sina.com.cn'+search_string);
idhttp.Free;
result :=TRUE;
end;

end.
 
能编译啊,提示什么?
 
是不是你自己机器的设置有问题
 
idhttp在Dll中没有问题的,我写过这样的,检查一下你的代码,把错误 提示贴出来
 
这个问题我已经搞定了,谢谢大家。
 
后退
顶部