Ciao Oki,
"lange" nichts von Dir gelesen. Ich glaube seit den CustomControls!?
Hätte das heute vormittag schon gelesen, hätte ich es direkt mit den Socket-Verbindungen gemacht, da ich dies schon des öfteren so gehandhabt habe - dies aber immer auf Firmeneigenen PC´s, wo die Hardwareumgebung bekannt ist bzw. notfalls angepasst wurde. Ich möchte jetzt nicht Ravens Bemühungen durch sofortiges Abwenden von den NamedPipes untergraben und werde mich also noch ein wenig quählen.
Damit ich nun endlich ans Ziel komme, müsste ich nur noch wissen, wie ich an den gesendeten Inhalt komme, denn gesendet wird ja, so wie ich das überblicke, immer das gesamte Alphabet, aber der Server zeigt nut die empfangenen "Pakete" an.
Diese Procedure hängt am Server und sollte mir eigentlich auch den geschickten Content liefern können....Oder!?
Delphi-Quellcode:
procedure TForm2.gnsPipeServer1ProcessMessage(Sender: TObject;
aByteArray: Pointer; BufferSize, InCount: Cardinal;
var OutCount: Cardinal; var DisconnectClient: Boolean);
var
I: Cardinal;
Temp: TByteArray;
begin
lbl_count.Caption := IntToStr(Succ(StrToIntDef(lbl_count.Caption, 0)));
for I := 0 to Pred(InCount) do
Temp[I] := TByteArray(aByteArray^)[Pred(InCount - I)];
for I := 0 to Pred(InCount) do
TByteArray(aByteArray^)[I] := Temp[I];
end;