Forum: Netzwerke
by Crocotronic,
20. Feb 2015
Okay, das erklärt einiges, vielen Dank!
Wenn ich das nun mit dem Stream mache, bekomme ich wieder ein Error vom Server, mit dem kann ich aber noch weniger anfangen :pale:
Erstmal der überarbeitete Code:
procedure SaveStringToStream(AStream: TStream; AString: String);
var
aStrLen: Integer;
begin
aStrLen := Length(AString);
AStream.WriteBuffer(aStrLen, SizeOf(Integer)); // <--...
Forum: Netzwerke
by Crocotronic,
20. Feb 2015
Hallo,
ich scheitere zurzeit am Verschicken eines JSON-Objekts. Die Schnittstele ist hierbei JSON-RPC und die Verbindung wird verschlüsselt.
Mein Code zum wegschicken sieht folgendermaßen aus:
procedure TForm1.Button1Click(Sender: TObject);
var sl: TStringList;
begin
sl:= TStringList.Create;
sl.Text:=...