Hi Leute,
jetzt habe ich erstmal eine Lösung für das Versenden eines Records.
Leider ist das die von Hinten durch die Brust-Lösung.
Ich suche also immer noch eine richtige Lösung.
Weiterhin fehlt ja noch komplett die Behandlung der einzelnen Anfragen in einem eigenen Thread.
Hier mein Code:
Client:
Delphi-Quellcode:
type
PTestRec = ^TTestRec;
TTestRec = packed record
IntData: Integer;
StrData: String[11];
end; { 16 Byte }
procedure TForm1.Button2Click(Sender: TObject);
var
lData :TTestRec;
lTmp :TBytes;
begin
lData.IntData := 25;
lData.StrData := 'Testdata';
SetLength(lTmp, SizeOf(TTestRec));
Move(lData, Pointer(lTmp)^, SizeOf(TTestRec));
FTCPClient.IOHandler.Write(lTmp);
Finalize(lTmp);
end;
Server:
Delphi-Quellcode:
procedure TForm1.OnServerExecute(AContext: TIdContext);
var
lData :TTestRec;
lTmp :TBytes;
begin
SetLength(lTmp, SizeOf(TTestRec));
AContext.Connection.IOHandler.ReadBytes(lTmp, SizeOf(TTestRec), False);
Move(Pointer(lTmp)^, lData, SizeOf(TTestRec));
ListBox1.Items.Add(Format('%d %s', [lData.IntData, lData.StrData]));
Finalize(lTmp);
end;
Die gesendeten Daten werden in der Listebox des Servers angezeigt.
Es wundert mich, daß diese Funktion auch funktioniert, wenn ich das Array zuvor nicht dimensioniere.
Wird denn das Array neu erzeugt, wenn ich es an die Funktion ReadBytes übergebe?
Leider schweigt sich die Hilfe zu diesem Thema aus.
Vielleicht kann dazu jemand etwas sagen.
Diese Lösung funktioniert, aber es gefällt mir nicht, daß ich zuvor erstmal das Record in ein Bytearray umwandeln muß.
Ich hätte gern eine Lösung, welche ohne zusätzliches Array funktioniert.
Ich hoffe, es kann noch irgendjemand etwas zu meinen Problemen schreiben.
Danke. Basti.