Einzelnen Beitrag anzeigen

Benutzerbild von Sherlock
Sherlock

Registriert seit: 10. Jan 2006
Ort: Offenbach
3.767 Beiträge
 
Delphi 11 Alexandria
 
#1

COM und ein redefiniertes GetServer

  Alt 17. Apr 2008, 09:19
Hi zusammen,

ich versuche gerade COM Objekte (LeadTools) in Delphi7 als Komponenten einzubinden. Klaglos erzeugt Delphi zunächst die Wrapper, wenn ich dann aber mal die neuen Komponenten kompilieren will erhalte ich eine Fehlermeldung, weil in der Wrapperunit ein GetServer (TOleServer) eingesetzt werden soll (was ja auch normal ist). Dieses GetServer ist aber auch eine von den LeadTools eingeführte Methode, die leider gänzlich andere Parameter erwartet.

Der Compiler bricht dann ab, und ich bin angeschmiert, weil ich jetzt die ganze Eventbehandlung von Hand abwickeln müsste.

Wie bringe ich den Wrapper dazu zu bemerken, daß er was falsch gemacht hat, oder wie korrigiere ich das Problem...

Delphi-Quellcode:
// Automatisch erzeugte Routine für die Komponente
procedure TLEADDicomNet.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer; // Das Problem
    ConnectEvents(punk);
    Fintf:= punk as ILEADDicomNet;
  end;
end;
Sherlock
Oliver
  Mit Zitat antworten Zitat