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? p>
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;