Ich denke das schon, da es ja unter XP einwandfrei funktioniert.
Das vom Server kommende Signal wird folgendermaßen gesendet:
Delphi-Quellcode:
for j:=1 to 9 do begin
with ServerSocket.Socket do begin
dummy:=obj[ship1,j];
if dummy<>'' then begin
// memo1.lines.add(dummy);
Nachricht.text:='#$$#AO'+IntToStr(ship1)+'0'+IntToStr(j)+dummy;
memo1.lines.add(Nachricht.Text);
for k := 0 to ActiveConnections-1 do
Connections[k].SendBuf (Nachricht, SizeOf(Nachricht));
end;
end;
end;
for j:=10 to 40 do begin
with ServerSocket.Socket do begin
dummy:=obj[ship1,j];
if dummy<>'' then begin
// memo1.lines.add(dummy);
Nachricht.text:='#$$#AO'+IntToStr(ship1)+IntToStr(j)+dummy;
memo1.lines.add(Nachricht.Text);
for k := 0 to ActiveConnections-1 do
Connections[k].SendBuf (Nachricht, SizeOf(Nachricht));
end;
end;
end;
Sind zwei Schleifen, da eine Signalzahl zur Identifizierung herangezogen wird. Ist aber nebensache hier
----------
Ich verwende die Sockets die bei Delphi gegeben sind. Ob sie nun synchron oder asynchron sind weiß ich leider nicht. Sind halt nur ClientSocket und ServerSocket-Komponenten.
Blackbox-Komponenten? Nein. Der Server nimmt einfach Einträge aus einem Array, packt die in einen String und sendet die. Code siehe oben.
Hoffe das sind hilfreiche Informationen