Tweet
Hallo Leute, ich habe ein Windowsdienst der in Net geschrieben ist. Er besitzt ein Interface:
type
ITCPService = interface
procedure TForm1.Button1Click(Sender: TObject);
var fTmpService: ITCPService; s,s1: string;
begin
function TForm1.GetobjectRef: ITCPService;
begin
Jetzt möchte ich diesen Dienst mit Delphi32 aufrufen. Der Blau markierte Text ist in Net geschrieben. Wie kommt man in Delphi32 an die Schnittstelle ran. Activator gibt es ja da nicht.
Vielen Dank
type
ITCPService = interface
function HalloWorld(const fItem: string; out aResult: string): boolean;
end;procedure TForm1.Button1Click(Sender: TObject);
var fTmpService: ITCPService; s,s1: string;
begin
fTmpService := GetobjectRef;
s := Edit1.Text;
if fTmpService.HalloWorld(s, s1) then
Edit1.Text := s1;
fTmpService := nil;
end;s := Edit1.Text;
if fTmpService.HalloWorld(s, s1) then
Edit1.Text := s1;
fTmpService := nil;
function TForm1.GetobjectRef: ITCPService;
begin
Result := Activator.GetObject(typeof(ITCPService),
'tcp://localhost:8085/Halloservice') as ITCPService;
end;'tcp://localhost:8085/Halloservice') as ITCPService;
Jetzt möchte ich diesen Dienst mit Delphi32 aufrufen. Der Blau markierte Text ist in Net geschrieben. Wie kommt man in Delphi32 an die Schnittstelle ran. Activator gibt es ja da nicht.
Vielen Dank
Nils