Record via Indy (TCP) versenden

[TheMiller]

Hm.. ich habe aber nur Read und Write Buffer also Methoden. Mit denen habe ich es jetzt mal so probiert:

Delphi-Quellcode:

procedure TForm1.PngSpeedButton1Click(Sender: TObject);
var
  s: ShortString;
begin
  s:='SDSD';
  IdTCPClient1.Connect();
  IdTCPClient1.WriteBuffer(s, Length(s));
end;

// Empfang

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
  s: ShortString;
begin
    AThread.Connection.ReadBuffer(s, 4);
    ShowMessage(s);
end;

Gut, das ist jetzt kein Record, aber eins nach dem anderen. Was passiert ist folgendes: Es öffnet sich eine große Box (1000px hoch, 10px breit. Ohne Inhalt. Wie, wenn man ohne Speichermanager Strings zwischen Dll und Hauptprogramm austauscht.