Frage zur Typenumwandlung nach "IDispatch"

**Gebhard**

Hallo,

ich stehe mal wieder auf dem Schlauch.

Das Problem:
Ich möche mit Delphi eine PDF-Datei mit Sicherheitseinstellungen erstellen. In der PDF-Datei soll der Menüpunkt "Datei -> Drucken" deaktiviert sein. In VisualBasic 6.0 funktioniert es, in Delphi Personal 7 gibt es beim Befehl
"oSicherheitseinstellung.SetSecuritySettings(oSich erheit);" die Fehlermeldung "[Fehler] Unit1.pas(44): Inkompatible Typen: 'IDispatch' und 'TsecuritySettings'".
Kann mir jemand bei ber Typenumwandlung helfen?

Vielen Dank für Eure Hilfe

Tschüss Gebhard
Hier noch einmal die Befehle und die Fehlermeldungen.

markieren

Code:

			interface

uses

  ...,

  PDFMAKERAPILib_TLB,

  ...;

...

...

procedure TForm1.Button1Click(Sender: TObject);

  var

    oPDF:TPDFMakerApp;

    oSicherheitseinstellung:TConversionSettings;

    oSicherheit:TSecuritySettings;

  begin

    oPDF:=TPDFMakerApp.Create(Self);

    oSicherheit:=TsecuritySettings.Create(Self);

    oSicherheit.PermsPasswd:='abc';

    oSicherheit.PrintingModeAllowed:=kPrintingAllowedNone;

    oSicherheit.PermsPasswdNeeded:=true;

    oSicherheitseinstellung:=TConversionSettings.Create(Self);

    oSicherheitseinstellung.SetSecuritySettings(oSicherheit);

    oPDF.CreatePDF('c:\temp\test.xls','c:\Temp\test.pdf',oSicherheitseinstellung);

    end;

Hier die Fehlermeldungen
[Fehler] Unit1.pas(44): Inkompatible Typen: 'IDispatch' und 'TsecuritySettings'
[Fehler] Unit1.pas(46): Es gibt keine überladene Version von 'CreatePDF', die man mit diesen Argumenten aufrufen kann
[Fataler Fehler] Project1.dpr(5): Verwendete Unit 'Unit1.pas' kann nicht compiliert werden

Hier die Funktion in der "PDFMAKERAPILib_TLB"
function CreatePDF(const srcFilePath: WideString; const pdfFilePath: WideString;pSettings: OleVariant): Integer; overload;

Hier der Text, der in VisualBasic funktioniert
Dim oPDF As PDFMAKERAPILib.PDFMakerApp
Dim oSicherheit As PDFMAKERAPILib.SecuritySettings
Dim oSicherheitseinstellung As PDFMAKERAPILib.ConversionSettings
Set oPDF = New PDFMAKERAPILib.PDFMakerApp
Set oSicherheit = New PDFMAKERAPILib.SecuritySettings
oSicherheit.PermsPasswd = "abc"
oSicherheit.PrintingModeAllowed = kPrintingAllowedNone
oSicherheit.PermsPasswdNeeded = True
Set oSicherheitseinstellung = New PDFMAKERAPILib.ConversionSettings
oSicherheitseinstellung.SetSecuritySettings oSicherheit
oPDF.CreatePDF "c:\temp\test.xls", "c:\Temp\test.pdf", oSicherheitseinstellung

Frage zur Typenumwandlung nach "IDispatch"

Frage zur Typenumwandlung nach "IDispatch"

Forumregeln