Red de conocimiento informático - Computadora portátil - Problemas con TIdTCPClient en delphi7 DLL, no se puede conectar al servidor

Problemas con TIdTCPClient en delphi7 DLL, no se puede conectar al servidor

Si es posible, espero que puedas agregarme como amigo de Baidu y estudiar juntos.

Archivo DLL:?

biblioteca?DLLDPR;?

Propósito:

ShareMem,?

IdTCPClient ;?

{$R?*.res}?

función?linkserver(host:?string;?port:?integer):?boolean;?

var?

tcp:?TIdTCPClient;?

¿comenzar?

tcp.Host?

tcp.Port?

probar

tcp.Connect(1000);?

¿excepto?

¿resultado?

fin;?

¿exportaciones?

fin.

¿archivo EXE?

función?linkserver(host:?string;?port:?integer):?boolean;?

externo?

procedimiento?TForm1.Button1Click(Remitente :?TObject);?

const?('Fallo', ?'' Éxito');?

var?

¿comenzar?

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

showmessage('¿Conectado a'? +?edit1.Text?+? #13 ?+?ba[b]);?

fin;