Dies sind Komponenten bzw. Objekte für Delphi.
Gechrieben in Delphi 7.
Diese Objekte sind für die Kommunikation zwischen 2 oder sogar mehr Prozessen.
Es gibt jeweils ein Server und ein Client-Objekt.
Es sind dort zwei Arten von Objekten:
TSCom-Objekten - um mit Integern zu kommunizieren
TSDataCom-Objekte - um Daten zwischen diesen Prozessen auszutauschen.
Hier ein Beispiel zur Anwendung:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
| FService := TSDataComServer.Create;
FService.ServiceName := 'Test';
FService.ServicePort := 10;
FService.Active := TRUE;
FService.OnRead := _ServiceRead;
procedure TForm1._ServiceRead(Sender:TObject;AConn:Integer;const Data;Count:Integer);
var Bool : Boolean;
begin
Bool := Boolean(Data);
Bool := not Bool;
FService.SendData(AConn,Bool,SizeOf(Bool));
end;
FClient := TSDataComClient.Create;
FClient.OnRead := ConnectionRead;
FClient.ServiceName := 'Test';
FClient.ServicePort := 10;
FClient.Active := TRUE;
procedure TForm1.ConnectionRead(Sender:TObject;const Data;Count : Integer);
Begin
FClient.SendData(FALSE,SizeOf(Boolean));
end; |
Diese Objekte sind wie z.B. TCP Komponenten ansprechbar.
D.h. mit ServiceName, ServicePort usw. schaut es euch einfach an.
Falls fragen sind, mailt mir einfach:
Stephan.Schamberger@innova-ps.de
Source gibt es auch gegen 20€ per e-Mail.
