Vista Kontakt schreiben

[dingsbums]

Hallo zusammen,

ich versuche gerade unter Delphi7 ein Programm zu schreiben, welches mir einen Windows-Kontakt unter Vista anlegt. Dazu nutze ich die Windows API von JEDI. Nun gibt es da eine Funktion 'SHCreateStreamOnFileEx', mit der man laut dem Beispiel aus der MSDN den Kontakt in einen Stream und somit dann in eine Datei schreibt. Nun ist das Problem der Aufruf dieser Funktion

Deklaration vom Stream
aIStream : ^IStream; Aufruf der Funktion
SHCreateStreamOnFileEx(sFile, STGM_WRITE, FILE_ATTRIBUTE_NORMAL, True, nil, @aIStream); Allerdings bringt er mir ne Fehlermeldung und zwar:

Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen.

Habe schon einige möglichkeiten durchprobiert, aber immer die gleiche Fehlermeldung. Wie muss ich denn den IStream deklarieren und die Funktion aufrufen?

Gruß

dingsbums

[Sharky]

Hai dingsbums,

ersteinmal: "Herzlich Willkommen in der Delphi-PRAXuS"

Wie ist den der Header von SHCreateStreamOnFileEx deklariert?

[dingsbums]

Deklaration von SHCreateStreamOnFileEx in der JEDI API
function SHCreateStreamOnFileEx(pszFile: PWideChar; grfMode, dwAttributes: DWORD; fCreate: BOOL; pstmTemplate: IStream; out ppstm: IStream): HResult stdcall; In der MSDN

Zitat:

HRESULT SHCreateStreamOnFileEx(
LPCWSTR pszFile,
DWORD grfMode,
DWORD dwAttributes,
BOOL fCreate,
IStream *pstmTemplate,
IStream **ppstm
);

Wobei das Beispiel in der MSDN nur einen einfachen Pointer benutzt Erstellen eines neuen Kontakts

[DeddyH]

Und wenn Du es so umschreibst?

Delphi-Quellcode:

aIStream : IStream;
...
SHCreateStreamOnFileEx(sFile, STGM_WRITE, FILE_ATTRIBUTE_NORMAL, True, nil, aIStream);

[dingsbums]

Zitat von DeddyH:

Und wenn Du es so umschreibst?

Delphi-Quellcode:

aIStream : IStream;
...
SHCreateStreamOnFileEx(sFile, STGM_WRITE, FILE_ATTRIBUTE_NORMAL, True, nil, aIStream);

Gleiche Fehlermeldung. So hatte ich es auch schon versucht, da ich erst komplett auf Pointer verzichtet hatte.

[DeddyH]

Von welchem Typ ist sFile?

[dingsbums]

sFile ist ein PWideChar und da steht der Dateiname der zu erstellenden Datei drin.

Delphi-Quellcode:

sFile : PWideChar;
...
sFile := 'NewContact.Contact';

[DeddyH]

Dann hab ich im Moment auch keinen zündenden Einfall.

[jfheins]

Etwas Q&D: Die Deklaration umändern zu .....pstmTemplate: IStream; ppstm: Pointer): HResult stdcall;
und dann aufrufen wie am Anfang?

[dingsbums]

Liefert leider den gleichen Fehler.

Edit: Vergessen das 'out' wegzumachen, dann compiliert er. Danke. Mal schaun obs nun auch funktioniert.