Vista OpenFileDialog

[Willie1]

Hallo Leute,
bei dem Vista OpenFileDialog gibt es die Möglichkeit eine Datei nur zum Lesen zu öffnen. Diese Option vermisse ich bei der Delphi XE Komponente. Ich bin bei Delphi XE Neuling, übersehe ich da was?

Gehört hier nicht hin: aber ich lese von einem Virus, der Delphi befallen soll? Ich habe Delphi XE Trial am Samstag installiert, könnte ich davon betroffen sein?

MfG
Willie

[Willie1]

inzwischen kann ich mir die Antwort selbst geben. Ja, hier hat Borland geschlampt und etwas vergessen. Ich habe eine andere Lösung gefunden.
W.

[Luckie]

Wäre schön, wenn du uns diese noch mitteilen würdest.

[vergessen]

Zitat:

Zitat von Willie1 (Beitrag 1084966)

inzwischen kann ich mir die Antwort selbst geben. Ja, hier hat Borland geschlampt und etwas vergessen. Ich habe eine andere Lösung gefunden.
W.

Was wo und wie bitte? Wo hat Borland da geschlampt?

Welche "andere Lösung gefunden"?

Bitte belegen oder Guttenbergen!

MfG

[Willie1]

Hi, ich hatte gefragt, ob bei die Vista OpenFile Kompomente die Möglichkeit besteht, eine Datei als schreibgeschüzt zu öffnen. Diese Möglichkeit bietet der Vista OFD, Borland hat vergessen diese Option ein zu bauen.
Meine Lösung: Ich hatte für D-2005 nach einem Rezept des SwissDelphi Forum direkt comdlg32.dll angezapt. Die Umsetzung auf D-XE erweist sich als schwierig. U.a. löst (p: PAnsiChar, s: string) p:=PChar(s) eine Fehlermeldung des Compilers aus, auch p:=PAnsiChar(s) liefert nur das 1. Zeichen zurück! Kann jemand helfen?
Wenn die Sache läuft, melde ich mich.

W.

[DeddyH]

Wenn p PAnsiChar ist, dann sollte s auch AnsiString sein.

[Willie1]

also p:=PAnsiChar(AnsiString(s)) ?
Willie

[DeddyH]

Jepp.

[Bernhard Geyer]

Zitat:

Zitat von Willie1 (Beitrag 1085035)

Borland hat vergessen diese Option ein zu bauen

Borland hat seit Jahren nix mehr mit Delphi zu tun.

Zitat:

Zitat von Willie1 (Beitrag 1085035)

des SwissDelphi Forum direkt comdlg32.dll angezapt.

Sinnvoll ist gleich die WideString-Version der entsprechenden API-Funktion zu verwenden.

[DeddyH]

Ich habe das mal schnell umgeschrieben und in eine Unit gepackt, falls jemand Fehler entdeckt, korrigiere man mich bitte.

Delphi-Quellcode:

unit uCustomFileDialog;

interface

uses Windows;

function OpenSaveFileDialog(ParentHandle: THandle; const DefExt, Filter, InitialDir,
  Title: string; var FileName: string; IsOpenDialog: Boolean): Boolean;

implementation
uses ShlObj, SysUtils;

type
  POpenFilenameA = ^TOpenFilenameA;
  tagOFNA = packed record
    lStructSize: DWORD;
    hWndOwner: HWND;
    hInstance: HINST;
    lpstrFilter: PAnsiChar;
    lpstrCustomFilter: PChar;
    nMaxCustFilter: DWORD;
    nFilterIndex: DWORD;
    lpstrFile: PAnsiChar;
    nMaxFile: DWORD;
    lpstrFileTitle: PAnsiChar;
    nMaxFileTitle: DWORD;
    lpstrInitialDir: PAnsiChar;
    lpstrTitle: PAnsiChar;
    Flags: DWORD;
    nFileOffset: Word;
    nFileExtension: Word;
    lpstrDefExt: PAnsiChar;
    lCustData: LPARAM;
    lpfnHook: function(Wnd: HWND; Msg: UINT; ParamW: WPARAM; ParamL: LPARAM): UINT stdcall;
    lpTemplateName: PAnsiChar;
  end;
  TOpenFilenameA = tagOFNA;

  POpenFilenameW = ^TOpenFilenameW;
  tagOFNW = packed record
    lStructSize: DWORD;
    hWndOwner: HWND;
    hInstance: HINST;
    lpstrFilter: PWideChar;
    lpstrCustomFilter: PChar;
    nMaxCustFilter: DWORD;
    nFilterIndex: DWORD;
    lpstrFile: PWideChar;
    nMaxFile: DWORD;
    lpstrFileTitle: PWideChar;
    nMaxFileTitle: DWORD;
    lpstrInitialDir: PWideChar;
    lpstrTitle: PWideChar;
    Flags: DWORD;
    nFileOffset: Word;
    nFileExtension: Word;
    lpstrDefExt: PWideChar;
    lCustData: LPARAM;
    lpfnHook: function(Wnd: HWND; Msg: UINT; ParamW: WPARAM; ParamL: LPARAM): UINT stdcall;
    lpTemplateName: PWideChar;
  end;
  TOpenFilenameW = tagOFNW;

  TOpenFilename = {$IFDEF UNICODE}TOpenFilenameW{$ELSE}TOpenFilenameA{$ENDIF};

function GetOpenFileName(var OpenFile: TOpenFilename): Bool; stdcall; external 'comdlg32.dll'  name {$IFDEF UNICODE}'GetOpenFileNameW'{$ELSE}'GetOpenFileNameA'{$ENDIF};
function GetSaveFileName(var OpenFile: TOpenFilename): Bool; stdcall; external 'comdlg32.dll'  name {$IFDEF UNICODE}'GetSaveFileNameW'{$ELSE}'GetSaveFileNameA'{$ENDIF};

const
  OFN_DONTADDTORECENT = $02000000;
  OFN_FILEMUSTEXIST = $00001000;
  OFN_HIDEREADONLY = $00000004;
  OFN_PATHMUSTEXIST = $00000800;

function CharReplace(const Source: string; oldChar, newChar: Char): string;
var
  i: Integer;
begin
  Result := Source;
  for i := 1 to Length(Result) do
    if Result[i] = oldChar then
      Result[i] := newChar
end;

function OpenSaveFileDialog(ParentHandle: THandle; const DefExt, Filter, InitialDir, Title: string; var FileName: string; IsOpenDialog: Boolean): Boolean;
var
  ofn: TOpenFileName;
  szFile: array[0..MAX_PATH] of Char;
begin
  Result := False;
  FillChar(ofn, SizeOf(TOpenFileName), 0);
  with ofn do
  begin
    lStructSize := SizeOf(TOpenFileName);
    hwndOwner := ParentHandle;
    lpstrFile := szFile;
    nMaxFile := SizeOf(szFile);
    if (Title <> '') then
      lpstrTitle := PChar(Title);
    if (InitialDir <> '') then
      lpstrInitialDir := PChar(InitialDir);
    StrPCopy(lpstrFile, FileName);
    lpstrFilter := PChar(CharReplace(Filter, '|', #0)+#0#0);
    if DefExt <> '' then
      lpstrDefExt := PChar(DefExt);
  end;
  if IsOpenDialog then
  begin
    if GetOpenFileName(ofn) then
    begin
      Result := True;
      FileName := StrPas(szFile);
    end;
  end
  else
  begin
    if GetSaveFileName(ofn) then
    begin
      Result := True;
      FileName := StrPas(szFile);
    end;
  end
end;

end.

[Willie1]

vielen Dank für den Code.
Ich kann es leider nicht testen, weil plötzlich der Norton-Virenwächter Alarm schlägt und keine Exe-Datei mehr durchlässt!! (Auch ein leeres Formular nicht.)

Willie

[EWeiss]

Wo kann ich das Flag für Unicode setzen ?
Hab mit deinem OpenFileDialog riesen Speicherleck

gruss

[Bernhard Geyer]

Zitat:

Zitat von EWeiss (Beitrag 1098128)

Wo kann ich das Flag für Unicode setzen ?

Welche Flag?

Zitat:

Zitat von EWeiss (Beitrag 1098128)

Hab mit deinem OpenFileDialog riesen Speicherleck

Zeig mal etwas Quellcode.

[EWeiss]

Zitat:

Zitat von Bernhard Geyer (Beitrag 1098129)

Zitat:

Zitat von EWeiss (Beitrag 1098128)

Wo kann ich das Flag für Unicode setzen ?

Welche Flag?

Zitat:

Zitat von EWeiss (Beitrag 1098128)

Hab mit deinem OpenFileDialog riesen Speicherleck

Zeig mal etwas Quellcode.

Der Quellcode ist hier ;)
http://www.delphipraxis.net/1085053-post10.html

EDIT:
Noch ein Bild angehangen.

gruss

[EWeiss]

irgenwie verträgt sich das nicht!

Delphi-Quellcode:

function OpenSaveFileDialog(ParentHandle: THandle; const DefExt, Filter, InitialDir, Title: string; var FileName: string; IsOpenDialog: Boolean): Boolean;

mit

Delphi-Quellcode:

TOpenFilename = {$IFDEF UNICODE}TOpenFilenameW{$ELSE}TOpenFilenameA{$ENDIF};

wenn der FileName als string ausgelegt ist.
Deshalb meine Frage nach dem Flag..
Funktioniert nur mit FileName als WideString!

trotzdem bekomme ich dann nach dem beenden wieder jedemenge Speicherlecks.
34x dieser Block.

Zitat:

--------------------------------2011/5/1 21:20:11--------------------------------
Ein Speicherblock hat Speicher verloren. Die Größe ist: 20

This block was allocated by thread 0x6B8, and the stack trace (return addresses) at the time was:
40317E
406A6E
42C794
42C629
42C174
423017
42302C
428027
431890
74EE62FA [Unknown function at gapfnScSendMessage]
74EE6D3A [Unknown function at GetThreadDesktop]

Der Block wird momentan für eine Objektklasse benutzt Unbekannt

The allocation number is: 1638

Aktueller Speicherauszug von 256 Bytes, beginnend ab Zeigeradresse 7EEAF7D0:
0C 00 00 00 FC 6B B5 03 50 65 F7 7E 80 80 80 80 3E 5B 76 A8 80 80 80 80 00 00 00 00 30 F7 EA 7E
00 00 00 00 00 00 00 00 38 A6 40 00 00 00 00 00 6C 06 00 00 7E 31 40 00 6E 6A 40 00 94 C7 42 00
29 C6 42 00 74 C1 42 00 17 30 42 00 2C 30 42 00 27 80 42 00 90 18 43 00 FA 62 EE 74 3A 6D EE 74
B8 06 00 00 9A 31 40 00 89 53 40 00 64 64 40 00 FB C5 42 00 74 C1 42 00 17 30 42 00 2C 30 42 00
27 80 42 00 90 18 43 00 FA 62 EE 74 3A 6D EE 74 B8 06 00 00 10 00 00 00 E4 04 01 00 67 A5 89 57
0E 00 00 00 2C D2 AC 03 10 F9 EA 7E 80 80 80 80 98 5A 76 A8 80 80 80 80 00 00 00 00 30 F7 EA 7E
00 00 00 00 00 00 00 00 38 A6 40 00 00 00 00 00 6F 06 00 00 7E 31 40 00 6E 6A 40 00 94 C7 42 00
29 C6 42 00 74 C1 42 00 17 30 42 00 2C 30 42 00 27 80 42 00 90 18 43 00 FA 62 EE 74 3A 6D EE 74
. . . . ü k µ . P e ÷ ~ € € € € > [ v ¨ € € € € . . . . 0 ÷ ê ~
. . . . . . . . 8 ¦ @ . . . . . l . . . ~ 1 @ . n j @ . ” Ç B .
) Æ B . t Á B . . 0 B . , 0 B . ' € B . � . C . ú b î t : m î t
¸ . . . š 1 @ . ‰ S @ . d d @ . û Å B . t Á B . . 0 B . , 0 B .
' € B . � . C . ú b î t : m î t ¸ . . . . . . . ä . . . g ¥ ‰ W
. . . . , Ò ¬ . . ù ê ~ € € € € ˜ Z v ¨ € € € € . . . . 0 ÷ ê ~
. . . . . . . . 8 ¦ @ . . . . . o . . . ~ 1 @ . n j @ . ” Ç B .
) Æ B . t Á B . . 0 B . , 0 B . ' € B . � . C . ú b î t : m î t

grrr das selbe problem mit dem OpenFileDialog von turboPascal.


gruss

[Luckie]

Du hast ja auch noch Delphi2006, erst ab Delphi2009 ist String als WideString deklariert. Du musst also WideString nehmen.

[EWeiss]

Zitat:

Zitat von Luckie (Beitrag 1098138)

Du hast ja auch noch Delphi2006, erst ab Delphi2009 ist String als WideString deklariert. Du musst also WideString nehmen.

Nein habe jetzt D2009 deshalb ja auch die ganze umstellung. ;)
Ja tue ich ja.
Aber das problem bleibt bestehen Speicherleck nach dem beenden der Anwendung.
Aber erst dann nachdem eine Datei über diese Dialog Funktion eingeladen wurde.

Bei der verwendung des Flags {$IFDEV UNICODE} sollte man meines erachtens dann auch eine Überladene function hinzufügen Oder ?

Delphi-Quellcode:

function OpenSaveFileDialog(ParentHandle: THandle; const DefExt, Filter, InitialDir, Title: string; var FileName: string; IsOpenDialog: Boolean): Boolean; overload; 
function OpenSaveFileDialog(ParentHandle: THandle; const DefExt, Filter, InitialDir, Title: WideString; var FileName: WideString; IsOpenDialog: Boolean): Boolean; overload;

Jetzt mal ernsthaft soll man den ganzen Kram einfach ignorieren mit den Speicherlecks ?
Das ist ja ein Fass ohne Boden.

EDIT:
Auf jedenfall fehlen auch noch die Flags.

Delphi-Quellcode:

  with ofn do
  begin
    lStructSize := SizeOf(TOpenFileName);
    hwndOwner := ParentHandle;
    lpstrFile := szFile;
    nMaxFile := SizeOf(szFile);
    if IsOpenDialog then
      Flags := OFN_EXPLORER or OFN_ALLOWMULTISELECT or OFN_FILEMUSTEXIST or OFN_PATHMUSTEXIST
    else
    Flags := OFN_LONGNAMES or OFN_PATHMUSTEXIST or OFN_OVERWRITEPROMPT;

gruss

[DeddyH]

Hallo Emil,

Zitat:

Delphi-Quellcode:

lStructSize := SizeOf(TOpenFileName);

Bist Du sicher, dass das so richtig ist? Ich habe weder nachgesehen noch es ausprobiert, aber möglicherweise ergibt SizeOf nur die Größe des Pointers auf den String. Sicherer wäre es IMO so:

Delphi-Quellcode:

lStructSize := Length(TOpenFileName) * SizeOf(Char);

[himitsu]

Delphi-Quellcode:

SizeOf(TOpenFileName)

ist schon richtig.
Und nein, es gibt kein Flag. (man kann höchsten hoffen, daß der Compilerschalter "UNICODE" gesetzt wurde)

Aber

Zitat:

Delphi-Quellcode:

 nMaxFile := SizeOf(szFile);

Laut MSDN gehört da die Anzahl der Zeichen und nicht die Größe in Byte hin. :warn:

Wobei: was ist szFile?
Wenn das ein PChar ist, dann stimmt SizeOf sowieso nicht, denn das ist die Größe des Zeigers und nicht des Inhalts.

Ab Delphi 2009 ist String, Char, PChar und die dynamische WinAPI immer auf Unicode eingestellt. (es sei denn jemand hat Mist gebaut oder von der API existiert nur eine der beiden Ansi/Unicode-Versionen)

Tipp: Falls man nicht unbedingt viel Ahnung von der WinAPI hat, dann könnte man natürlich notfalls auch die entsprechenden VCL-Kapselungen verwenden, wie z.B. TFileOpenDialog (nicht zu verwechseln mit TOpenDialog).

[edit]
Wann wurde eigentlich der neue Vista-Dilaog TFileOpenDialog in Delphi eingeführt?

[EWeiss]

Zitat:

Zitat von DeddyH (Beitrag 1098206)

Hallo Emil,

Zitat:

Delphi-Quellcode:

lStructSize := SizeOf(TOpenFileName);

Bist Du sicher, dass das so richtig ist? Ich habe weder nachgesehen noch es ausprobiert, aber möglicherweise ergibt SizeOf nur die Größe des Pointers auf den String. Sicherer wäre es IMO so:

Delphi-Quellcode:

lStructSize := Length(TOpenFileName) * SizeOf(Char);

Also ich habe nur versucht das zu D2009 kompatibel zu machen.
So wie ich gesehen habe has tdu diesen ja geschrieben bzw von der Schweizer Delphi Seite erweitert.

Zitat:

Und nein, es gibt kein Flag. (man kann höchsten hoffen, daß der Compilerschalter "UNICODE" gesetzt wurde)

Macht das D2009 selbst ?
Oder muss ich mich darum kümmern.

Zitat:

Falls man nicht unbedingt viel Ahnung von der WinAPI hat

Davon habe ich on masse ..
Was nichts damit zu tun hat ob ich unter Delphi die richtigen Unicode Variablen
Verwende oder nicht.


Mein Frage wäre aber
Wie kann ich die Speicherlecks beseitigen.
Bei einigen kann man ja sehen wo unter umständen das Problem liegt solange
man im Block irgendwelche Pfade angezeigt bekommt.

Aber bei Unknow?
Wie soll man das identifizieren um den Fehler zu beseitigen.
Raten? Siehe http://www.delphipraxis.net/1098135-post15.html
Wie eingrenzen..


gruss