CreateOleObject und Guid

[franktron]

Ich will die Slef32 DLL von Datev nutzen und habe auch schon die TLib importiert.

Jetzt will ich Mit CreateOleObject ein ISELFWrite Object erstellen aber das geht nicht.

Ich habe nur die GUI {3E2C9364-7229-11D2-849D-0000F65A3DCB}

Kann mir jemand helfen.

Delphi-Quellcode:

ISELFWrite = interface(IDispatch)
    ['{3E2C9364-7229-11D2-849D-0000F65A3DCB}']

FDatevWrite:=CreateOleObject('ISELFWrite') as ISELFWrite;

FDatevWrite ist ISELFWrite

Es kommt immer der Fehler ungültiger Zeichenstring.

Was mach ich falsch.

[shmia]

Die ProgId besteht immer aus mindestens 2 Teilen:
Beispiel:

Delphi-Quellcode:

word := CreateOleObject('Word.Application');  // Application Objekt von WinWord
wb   := CreateOleObject('Excel.Workbook');    // neues Workbook von Excel öffnen

Optional kann man noch zusätzlich eine Version angeben (Word.Application.7).

http://support.microsoft.com/kb/183771/en-us

[franktron]

Weis denn einer wie der String bei SELF32.dll aussehen muss für SelfWrite

[shmia]

Wenn du die TLB schon importiert hast, brauchst du doch nicht CreateOleObject() verwenden.
Öffne die Unit xxxx_TLB.pas und gehe ganz ans Ende.
Dort findet sich Code wie folgendes Beispiel:

Delphi-Quellcode:

class function CoMoney.Create: IMoney;
begin
  Result := CreateComObject(CLASS_Money) as IMoney;
end;

Um bei dem Beispiel zu bleiben, müsste man hier schreiben:

Delphi-Quellcode:

var
  money_object : IMoney;
begin
  money_object := CoMoney.Create;  // das war's schon

Jetzt musst du nur noch schauen, welcher Aufruf zu deinem Interface ISELFWrite passt.
Wenn du nichts passendes findest, liegt das daran, dass du zuerst ein anderes Objekt erzeugen musst, um an das Interface ranzukommen.
Wenn alle Stricke reisen, dann kannst du die TLB-Datei gezippt hier im Forum posten.

schönes Wochenende; ich bin wech ;-)

[franktron]

Danke dafür sind die also da.
Hab mich schon gewundert was die da tun.