Panasys
08-07-2015, 20:51:57
Buenas...
Tengo una Funcion en C# dentro de una DLL que cargo en la aplicacion con
function Connect(Param:string):Integer; stdcall; external 'plcommpro.dll';
La funcion en C# es
int Connect(const char *Parameters)
Y el llamado:
params = “protocol=TCP,ipaddress=192.168.12.154,port=4370,timeout=2000,passwd=” ;
IntPtr h = Connect(params);
En Delphi la llamo declarando la variable param como string:
Si la funcion no conecta me devuelve un 0 como error sino me devuelve el handle:
procedure TForm1.Button1Click(Sender: TObject);
var param: string;
Conn : Integer;
begin
param := 'protocol=TCP,ipaddress=192.168.1.251,port=4370,timeout=4000,passwd=admin';
Conn := Connect(Param);
If Conn = 0 then Showmessage('Fallo') else Showmessage('Conectado');
end;
Algun paso me salte, es un dispositivo conectado via TCP, la conexion por red esta OK, me tiran un hilo?.
Abrazo Javier
Tengo una Funcion en C# dentro de una DLL que cargo en la aplicacion con
function Connect(Param:string):Integer; stdcall; external 'plcommpro.dll';
La funcion en C# es
int Connect(const char *Parameters)
Y el llamado:
params = “protocol=TCP,ipaddress=192.168.12.154,port=4370,timeout=2000,passwd=” ;
IntPtr h = Connect(params);
En Delphi la llamo declarando la variable param como string:
Si la funcion no conecta me devuelve un 0 como error sino me devuelve el handle:
procedure TForm1.Button1Click(Sender: TObject);
var param: string;
Conn : Integer;
begin
param := 'protocol=TCP,ipaddress=192.168.1.251,port=4370,timeout=4000,passwd=admin';
Conn := Connect(Param);
If Conn = 0 then Showmessage('Fallo') else Showmessage('Conectado');
end;
Algun paso me salte, es un dispositivo conectado via TCP, la conexion por red esta OK, me tiran un hilo?.
Abrazo Javier