Fórum Integração com painel digital de banco em rede #272378

Tenho que enviar comandos para um painel digital (desses e senha de banco) através da COM1. O sistema quando envia o comando para o painel local funciona perfeitamente mas quando aciona um painel na rede ele não funciona. O que fazer para enviar o comando pela rede para a COM1?
Segue abaixo o método para envio do comando:

procedure EnviarComando(Comando: String);
var
hCommFile: THandle;
Status: LongBool;
NumberWritten: DWORD;
Buf : array [0..1023] of Byte;
s : string;
begin
s:= ´COM1´;
hCommFile:= CreateFile( PChar(s), GENERIC_WRITE,
0,
nil,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0 );

if hCommFile = INVALID_HANDLE_VALUE then
begin
CloseHandle(hCommFile);
end
else
begin
s:= Comando;

NumberWritten:=0;
Status:=WriteFile( hCommFile,PChar(s)[0],
Length(s),
NumberWritten,
nil);
WriteFile(hCommFile,´ATH´,5,NumberWritten,nil);
CloseHandle(hCommFile);
end;
end;