delphi7 DLL中使用idtcpclient连接不到server.高手进.高分

发布网友发布时间：2024-10-23 17:31

共2个回答

热心网友时间：2024-10-27 00:31

如果可以，希望能加我百度好友，共同学习。

DLL文件：

library DLLDPR;

uses

ShareMem,

IdTCPClient;

{$R *.res}

function linkserver(host: string; port: integer): boolean;

var

tcp: TIdTCPClient;

begin

tcp := tidtcpclient.Create(nil);

tcp.Host := host;

tcp.Port := port;

try

tcp.Connect(1000);

except

end;

result := tcp.Connected;

end;

exports

linkserver;

end.

EXE文件

function linkserver(host: string; port: integer): boolean;

external 'dlldpr.dll';

procere TForm1.Button1Click(Sender: TObject);

const

ba: array[boolean] of string = ('失败', '成功');

var

b: boolean;

begin

b := linkserver(edit1.Text, strtointdef(edit2.Text, 80));

showmessage('连接到' + edit1.Text + #13 + ba[b]);

end;

热心网友时间：2024-10-27 00:32

肯定是联系不到的，其中还有通信的协议之类的东西，还有还接的部分。和不如直接用idhttp