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.