Entwickler-Ecke

Sonstiges (Delphi) - COM/OLE Automation Server


T_T_F - Mo 21.07.14 11:36
Titel: COM/OLE Automation Server
Ich habe einen OLE Automation Server in Delphi geschrieben der soweit auch ganz gut funktioniert.
Ich kann Text von einem Memo beim Client auf ein Memo im Server übertragen.
Umgekehrt funktioniert das aber nicht...

Code beim Server:


Delphi-Quelltext
1:
2:
3:
4:
function TMyCom1.Get_Text: WideString;
begin
  Result := 'bliblablub';
end;


Client:


Delphi-Quelltext
1:
2:
3:
4:
procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Lines.Add(string(FTest.Get_Text));
end;


Ich bekomme folgende Fehlermeldung:

Zugriffsverletzung bei Adresse irgendwas in Modul 'ole32.dll'. Lesen von Adresse irgendwas anderes

Wäre sehr froh, wenn mir jemand sagen könnte, was daran falsch ist oder wie man es anders lösen könnte

Hier sind noch die Projekt-Files zum Download: Client: https://www.dropbox.com/s/sjefshdfhx0bxvn/ComClient.zip Server: https://www.dropbox.com/s/ivkpz6gcmjq9oaa/ComServer.zip