Zugriff auf einen PSION mit iDispatch

[Jürgen Anke]

Hallo zusammen,
Ich möchte auf einen PSION "workabout" zugreifen und verschiedene Informationen auslesen. Die zum PSION gehörende Software "PsiWin" liefert dazu eine activeX-Componente, die ich in Delphi 5 Enterprise eingebunden habe und benutze. Ich habe keine Probleme, auf den PSION zuzugreifen, Dateien und oder Ordner zu kopieren, löschen etc. Mein Problem liegt in den Funktionen wo iDispatch eine Rolle spielt.

z.B.: function GetDriveInfo(Machine: Smallint; const DriveName: WideString): IDispatch;

Ich weiß, das Machine=2 sein muß und DriveName='A', wie kann ich aber den Rückgabewert verwenden? (iDispatch) wenn ich z.B.: die Verzeichnisse bzw. Dateien auf dem PSION in ein ListView einlesen möchte.

Ich muß noch dazu sagen, das ich mich schon noch zu den Anfängern zähle.

Über eine Antwort würde ich mich sehr freuen. Mit freundlichen Grüßen Jürgen Anke

Auszug aus der Unit:

Delphi-Quellcode:

// DispIntf: _DPsiWinEng
// Flags: (4112) Hidden Dispatchable
// GUID: {3C476931-F450-11CF-885E-0020AFC04E78}
_DPsiWinEng = dispinterface
['{3C476931-F450-11CF-885E-0020AFC04E78}']
function Init: Integer; dispid 1;
function Connect(TimeOutMiliseconds: Integer): Integer; dispid 2;
function GetDirectory(Machine: Smallint; const Directory: WideString): IDispatch; dispid 3;
function Disconnect: Integer; dispid 4;
function CopyFile(MachineFrom: Smallint; const FileFrom: WideString; MachineTo: Smallint;
const FileTo: WideString; Flags: Smallint): Integer; dispid 5;
...

[edit=sakura]Delphi-Tags gesetzt. Mfg, sakura[/edit]