Aufruf eines WebService aus einer DLL heraus

[the-networker]

Hallo Uwe,
das Problem hatte ich in der Vergangenheit auch.
Habe es dann wie folgt gelöst:

Delphi-Quellcode:

library WebMediaWebClient;
{$R *.RES}
uses
  Windows,
  Sysutils,
  activex,
  availability,//meine Funktionsunit für Dich ohne Belang
  Comobj;



procedure DLLEntryPoint(dwReason:dword);
begin
  case dwReason of
    DLL_PROCESS_ATTACH:
      begin
      OleCheck(CoInitialize(nil));
      end;
    DLL_PROCESS_DETACH:
    begin
      CoUnInitialize; //OLE DeInitializieren
    end;
  end;
end;

exports
BHGetAvailability;//Export aus meiner Funktionsunit

begin
  DllProc := @DLLEntryPoint;
  DllEntryPoint(DLL_PROCESS_ATTACH);
end.

Gruß
Uwe Lange