Delphianwendungen verbinden

[juezi]

Hallo Zusammen,

ich wollte mal nachfragen ob es eine einfache Möglichkeit gibt 2 Anwendungen (programmiert in Delphi 7 Pro)die auf 2 verschiedenen Rechner laufen zu verbinden. Es wird in der einen Anwendung etwas eingelesen (Barcode) und soll über das Netzwerk auf einem anderen Rechner abgelegt werden.

Vielen Dank im Voraus

juezi

[mkinzler]

Ja natürlich z.B. mit Sockets.

[juezi]

Hallo,

zuerst danke für die schnelle Antwort, kann ich bei diesen Sockets auf dem einen Rechner einen SocketServer laufen lassen der
immer wieder abfragt ob der Client schon da ist und wenn ja eine bleibende Verbindung aufbauen?

Danke

juezi

[mkinzler]

Normalerweise wendet sich der Clienzt an den Server und nicht umgekehrt.
Was meinst du mit abgelegt?

[juezi]

Hallo,

mit ablegen meine ich das an einem Rechner 2 Barcodes eingescannt werden, diese beiden Barcodes werden dann mit einer Datenbank verglichen und wenn diese beiden Barcodes zusammenpassen, sende ich die beiden Barcodes an einen anderen Rechner. Von diesem anderen Rechner aus gebe ich dann eine Freigabe an eine Produktionsanlage.

Danke

[mkinzler]

Dann würde ich den Server auf dem Rechner der die Freigabe ergibt einrichten. Der Cleint wendet sich dann bei Bedarf an den Server.

[juezi]

kann ich vom Server auch Text an den Client senden oder geht das nur in die Richtung des Servers.

Danke

[Hansa]

Zitat von juezi:

Es wird in der einen Anwendung etwas eingelesen (Barcode) und soll über das Netzwerk auf einem anderen Rechner abgelegt werden...

...und zwar am besten in einer Datenbank. Soll die DB, die die Barcodes enthält, nicht beeinflußt werden, dann lege eben noch eine an.

[mkinzler]

Ja,
http://www.dsdt.info/tutorials/indy/
http://www.dsdt.info/tutorials/indy/?page=2
http://www.dsdt.info/tutorials/winsocket/

[juezi]

Hallo,

ich hab noch eine Frage, wenn ich vom Client aus den Server abfragen ob er aktiv ist?
Ich habs probiert mit

Delphi-Quellcode:

procedure TfrmClient.Timer1Timer(Sender: TObject);
begin
  if ServerSocket1.Active = true then
      begin
        ClientSocket1.Socket.SendText('Barcode IO');
      end;
end;

aber mein Client erkennt nicht das der Server aktiv ist, wenn ich mit einem Button
  ClientSocket1.Socket.SendText('Barcode IO'); direkt ausführe funktioniert das, der Server erhält den String, daher denke ich das der Server aktiv ist.

Danke

[edit=SirThornberry]Delphi-Tags gesetzt - Mfg, SirThornberry[/edit]