on-line ou off-line
Tenho uma aplicação para supermercado, mais tenho tido alguns problema com o pdv, não estou conseguindo saber quando o servidor firebird está ativo para envia informações .... com isso estou tendo problema do tipo: estoque não atualiza, não gera de forma correta o cr, etc ... preciso saber quando o firebird tá ativo, para não acontecer de gera erro na tela do usuario e para que possa ter um trafego seguro das informaçoes, Obrigado
linguagem : delphi 7
banco : firebird 1.5.2
:?:
linguagem : delphi 7
banco : firebird 1.5.2
:?:
Databyte
Curtidas 0
Respostas
Giancorrea
06/10/2005
Declare na uses logo abaixo de ´implementation´ a unit ´IdTCPClient´. Depois você pode colocar o seguinte código em um botão no evento OnClick:
var
Host: String;
Port: Integer;
begin
with TIdTCPClient.Create(nil) do begin
Host := ´localhost´; Port := 3050;
Result := True;
try
Connect; Disconnect;
except
Result := False;
end;
Free;
end;
end;
Com esse código aí é para funcionar. Qualquer dúvida entre em contato. Se funcionou, responda, tá certo? Um abraço!
var
Host: String;
Port: Integer;
begin
with TIdTCPClient.Create(nil) do begin
Host := ´localhost´; Port := 3050;
Result := True;
try
Connect; Disconnect;
except
Result := False;
end;
Free;
end;
end;
Com esse código aí é para funcionar. Qualquer dúvida entre em contato. Se funcionou, responda, tá certo? Um abraço!
GOSTEI 0