IStrings richtig verarbeiten(OLE/COM Server)

[TTF]

Ich habe einen OLE Automation Server in Delphi geschrieben der soweit auch ganz gut funktioniert.
Der Server sieht so aus:
Server.png

Der Client so:

Client.png

SendText funktioniert ausgezeichnet. Bei GetText liegt das Problem. Ich bekomme folgende Fehlermeldung:

Error.png

Beim Server hab ich folgenden Code, um dem Client den Text des Server zu schicken:

Delphi-Quellcode:

function TMyCom2.Get_Text() : IStrings;
begin
   GetOleStrings(unit1.Form1.Memo1.Lines, Result);
end;

Beim Client diesen, um das 'Geschickte' zu empfangen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  aStrings : IStrings;
begin
  aStrings.Add(Server.Get_Text);
  SetOleStrings(Memo1.Lines, aStrings);
end;

Ich wäre sehr froh, wenn jemand sich den Code oder sogar die beiden Projekte(Anhang) ansehen könnte und mir sagen könnte, wo der Fehler liegt.

Danke schonmal im Voraus

[mkinzler]

Wo kommt diese Fehlermeldung, am Server oder am Client? Passiert etwas bei der Gegenstelle?

[Sir Rufo]

Also das hier

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  aStrings : IStrings;
begin
  aStrings.Add(Server.Get_Text);
  ...
end;

stinkt doch irgendwie. aStrings zeigt irgendwo im Speicher hin. Das ist auf jeden Fall falsch.

Mal so ein Schuss ins Blaue (habe mir nicht den Anhang angesehen)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  aStrings : IStrings;
begin
  aStrings := Server.Get_Text;
  SetOleStrings(Memo1.Lines, aStrings);
end;

[TTF]

@mkinzler: Ehrlich gesagt weiss ich es nicht da ja beide Anwendungen gleichzeitig laufen.

@Sir Rufo: Hmm ich denke auch, dass der Fehler in diesen beiden Zeilen liegt, aber ich habe keine Ahnung wie ich es besser machen könnte. Deshalb frag ich ja...

[Sir Rufo]

Zitat von TTF:

@mkinzler: Ehrlich gesagt weiss ich es nicht da ja beide Anwendungen gleichzeitig laufen.

@Sir Rufo: Hmm ich denke auch, dass der Fehler in diesen beiden Zeilen liegt, aber ich habe keine Ahnung wie ich es besser machen könnte. Deshalb frag ich ja...

Wie ist denn das Server.Get_Text definiert?
(Sitze am Tablet und möchte jetzt nicht erst den Rechner starten, ist eh schon warm genug)

So?
function Get_Text : IStrings; .

Ok, habe es gerade gesehen - Lösung siehe mein vorheriger Beitrag

[TTF]

@Sir Rufo: Genau das habe ich als Erstes gemacht. Aber Delphi erkennt Get_Text nicht als IString sondern als OleVariant, also hab ich versucht das irgendwie umzumappen..

@Sir Rufo 2.: Ich bin am Smartphone(Hab den Code nicht vor mir)...nachher start ich dann den Rechner

[TTF]

nichts(Versehen)