DGL • Thema anzeigen - GetOpenFileNameW (Unicode TOpenDialog)

GetOpenFileNameW (Unicode TOpenDialog)

Moderator: DGL-Team

Seite 1 von 1

[ 12 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Finalspace

Betreff des Beitrags: GetOpenFileNameW (Unicode TOpenDialog)

Verfasst: Sa Apr 17, 2004 19:50

DGL Member

Registriert: Mi Okt 16, 2002 15:06
Beiträge: 1012

Tach,

ich hab da mal ne frage hat wer schon mit diesem API befehl gearbeitet, wenn ja... wie hat er es geschafft "Fehlerfrei" unendlich viele dateien per multiselect auszuwählen und in ne stringList zu speichern ?

ich kämpfe momentan damit, bekomme aber öfters eine access violation oder es passiert einfach nix.

Ich brauch das damit ich vollkommenen Unicode Support in Delphi realisieren kann und da muss man halt schon beim TOpenDialog anfangen

Hier ist source, als unit für den opendialog.

Code:

 
unit uniopendialog;
 
interface
 
uses
  Windows,
  Unicode; // Lischke-Unicode Lib
 
const
  Ofn_allowmultiselect = 512;
  Ofn_createprompt = 8192;
  Ofn_enablehook = 32;
  Ofn_enabletemplate = 64;
  Ofn_enabletemplatehandle = 128;
  Ofn_explorer = 524288;
  Ofn_extensiondifferent = 1024;
  Ofn_filemustexist = 4096;
  Ofn_hidereadonly = 4;
  Ofn_nochangedir = 8;
  Ofn_nolongnames = 262144;
  Ofn_nonetworkbutton = 131072;
  Ofn_noreadonlyreturn = 32768;
  Ofn_notestfilecreate = 65536;
  Ofn_novalidate = 256;
  Ofn_overwriteprompt = 2;
  Ofn_pathmustexist = 2048;
  Ofn_readonly = 1;
  Ofn_shareaware = 16384;
  Ofn_sharefallthrough = 2;
  Ofn_sharenowarn = 1;
  Ofn_sharewarn = 0;
  Ofn_showhelp = 16;
 
type
  TUniOpenDialog = class
  private
    fFiles : TWideStrings;
  public
    constructor Create;
    destructor Destroy; override;
    function Execute(_AppHandle, _FormHandle : HWND) : Boolean;
  published
    property Files : TWideStrings read fFiles write fFiles;
  end;
 
  TOpenFileNameEx = packed record
    lStructSize: DWORD;
    hWndOwner: HWND;
    hInstance: HINST;
    lpstrFilter: PWideChar;
    lpstrCustomFilter: PWideChar;
    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; wParam: WPARAM; lParam: LPARAM): UINT stdcall;
    lpTemplateName: PWideChar;
    pvReserved : Pointer;
    dwReserved : DWORD;
    FlagsEx : DWORD;
  end;
 
  TWideStringDynArray = array of WideString;
 
function GetOpenFileNameEx(var OpenFile: TOpenFilenameEx): Bool; stdcall;
function GetSaveFileNameEx(var OpenFile: TOpenFilenameEx): Bool; stdcall;
 
implementation
 
function GetOpenFileNameEx; external 'comdlg32.dll'  name 'GetOpenFileNameW';
function GetSaveFileNameEx; external 'comdlg32.dll'  name 'GetSaveFileNameW';
 
function ExtractStringFromStringArray(var P: PWideChar; Separator: WideChar = #0): WideString;
var
  Start: PWideChar;
begin
  Start := P;
  P := StrScanW(Start, Separator);
  if P = nil then begin
    Result := Start;
    P := StrEndW(Start);
  end else begin
    SetString(Result, Start, P - Start);
    Inc(P);
  end;
end;
 
function ExtractStringsFromStringArray(P: PWideChar; Separator: WideChar = #0): TWideStringDynArray;
const
  GROW_COUNT = 1024;
var
  Count: Integer;
  Item: WideString;
begin
  Count := 0;
  SetLength(Result, GROW_COUNT);
  Item := ExtractStringFromStringArray(P, Separator);
  While Item <> '' do begin
    if Count > High(Result) then
      SetLength(Result, Length(Result) + GROW_COUNT);
    Result[Count] := Item;
    Inc(Count);
    Item := ExtractStringFromStringArray(P, Separator);
  end;
  SetLength(Result, Count);
end;
 
constructor TUniOpenDialog.Create;
begin
  fFiles := TWideStringList.Create;
end;
 
destructor TUniOpenDialog.Destroy;
begin
  fFiles.Free;
end;
 
function TUniOpenDialog.Execute(_AppHandle, _FormHandle : HWND) : Boolean;
var
  ofn      : TOpenFileNameEx;
  szFile   : array [0..255] of WideChar;
  i        : integer;
  data     : TWideStringDynArray;
  P        : PWideChar;
begin
  Result := False;
 
  ZeroMemory(@ofn, SizeOf(TOpenFileNameEx));
  ofn.hInstance := _AppHandle;
  ofn.lStructSize := sizeof(ofn);
  ofn.hwndOwner := _FormHandle;
  ofn.lpstrFile := szFile;
 
  ofn.lpstrFile[0] := #0;
  ofn.nMaxFile := SizeOf(szFile);
  ofn.lpstrFilter := '';
  ofn.nFilterIndex := 1;
  ofn.lpstrFileTitle := '';
  ofn.nMaxFileTitle := 0;
  ofn.lpstrInitialDir := '';
  ofn.Flags := Ofn_hidereadonly or OFN_ALLOWMULTISELECT or OFN_EXPLORER;
 
  if GetOpenFileNameEx(ofn) = true then
  begin
    P := szFile;
    SetLength(data, 0);
    data := ExtractStringsFromStringArray(P);
    for I := 0 to high(data) do
      fFiles.Add(data[I]);
    Result := True;
  end;
end;
 

wer da weiss wo der fehler steckt, der kann ja gern ne fixed version posten oder per mail senden.

matane,
Final

Nach oben

Finalspace

Betreff des Beitrags:

Verfasst: Sa Apr 17, 2004 20:03

DGL Member

Registriert: Mi Okt 16, 2002 15:06
Beiträge: 1012

k hab rausgefunden woran das liegt, habe aber keine idee wie ich das problem beseitigen soll.

die buffergrösse ist ausschlaggeben:

szFile : array [0..255] of WideChar;

diese vergrössern lässt schonmal mehr zu aber reicht noch nicht aus, bei vielen dateien:

szFile : array [0..65536] of WideChar;

wie macht man das dynamisch ?

matane,
Final

Nach oben

HomerS

Betreff des Beitrags:

Verfasst: Sa Apr 17, 2004 20:43

DGL Member

Registriert: Sa Nov 02, 2002 18:06
Beiträge: 299
Wohnort: Dresden

Hab jetzt nich soviel Ahnung von API, aber einfach mit dynamsichen Arrays?

_________________
"Ich würde ja gern die Welt verändern, aber Gott gibt mir den Quelltext nicht"

Nach oben

Mars

Betreff des Beitrags:

Verfasst: Mo Apr 19, 2004 09:12

DGL Member

Registriert: Fr Dez 13, 2002 12:18
Beiträge: 1063

Ich würde einfach GetMem (und FreeMem) verwenden:

Code:

type
  TDynWideString = array[0..63] of TWideChar; // die Größe des Arrays ist egal - grad dass im Debugger die ersten paar Zeichen angezeigt werden
  PDynWideString = ^TDynWideString; 
 
var
  MyString: PDynWideString;
 
begin
  GetMem(MyString, nChars * sizeof(TWideChar));
   // Speicher ist alloziert, MyString kann verwendet werden
  FreeMem(MyString);
end;

Du musst halt aufpassen, dass du mit GetMem allozierten Speicher auch selbst wieder frei gibst. Dynamische Arrays kannst du natürlich auch verwenden, solltest in Betriebssystemfunktionen dann aber die Adresse des ersten Elementes dereferenzieren (z.B. Addr(MyString[0]) )

_________________
Viel Spaß beim Programmieren,
Mars
http://www.basegraph.com/

Nach oben

rswm

Betreff des Beitrags:

Verfasst: Mo Apr 19, 2004 13:31

DGL Member

Registriert: Mi Aug 28, 2002 19:27
Beiträge: 568
Wohnort: Chemnitz / Sachsen

wie wärs mit nem PChar ????

_________________
Aktuelles Projekt :
www.PicPlace.de

Nach oben

LarsMiddendorf

Betreff des Beitrags:

Verfasst: Mo Apr 19, 2004 13:40

DGL Member

Registriert: Sa Dez 28, 2002 11:13
Beiträge: 2244

Der Type PWideChar ist vermutlich genau für so etwas vorgesehen. Man könnte aber auch einen WideString nehmen und die Läng evorher mti setlength extra setzen. Den Zeiger auf das erste Zeichen des WideStrings übergibt man dann.

Nach oben

Adler

Betreff des Beitrags:

Verfasst: Mo Apr 19, 2004 14:10

DGL Member

Registriert: Mo Okt 27, 2003 17:46
Beiträge: 788

und den array neu setzen (ne neue höhe bestimmen) kannste auch mit setlength(array, neue länge); Wenn dir das hilft

oder ich habe das dynamisch machen falsch verstanden

Nach oben

HomerS

Betreff des Beitrags:

Verfasst: Mo Apr 19, 2004 17:05

DGL Member

Registriert: Sa Nov 02, 2002 18:06
Beiträge: 299
Wohnort: Dresden

PChar geht nicht, weil Char ja 0..255 ist, aber der Dialog ist ja für Unicode gedacht.

_________________
"Ich würde ja gern die Welt verändern, aber Gott gibt mir den Quelltext nicht"

Nach oben

Finalspace

Betreff des Beitrags:

Verfasst: Di Apr 20, 2004 15:03

DGL Member

Registriert: Mi Okt 16, 2002 15:06
Beiträge: 1012

Danke für die vielen antworten aber ich habe da was festgestellt was nicht so toll ist.

Ich habe den array of widechar buffer auf die max. grösse gesetzt was geht.

Dann habe ich mal aus meiner ~5000 bilder sammlung die von 0-5000 durchnummeriert sind, alle markiert und in den unicode opendialog geladen.

Habe dann die Files aus dem opendialog in ne Listbox packen wollen.
Tja, leider werden aber nur um die ~1300 bilder geaddet.

Ich hab das dann auch noch mit nem normalen TOpenDialog probiert und siehe da, gleiches problem.

Habe mir dann nen sample mit dem normalen GetOpenFileName API befehl gemacht und da ist das gleiche.

Meiner meinung ist der Buffer der zugewiesen wird zu klein.
Ich hab nen wert von 0...65000 irgendwas eingeben und ne zahl zu viel, sagt mir delphi würde ich den stack überschreiten

Schon komisch, kann man diesen fehler einfach ignorieren oder soll man da dann ne eigene lösung bauen, sprich man baut sich seien opendialog ohne Winapi commands zusammne, zumindest nicht mit GetOpenFileNameW.

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Di Apr 20, 2004 15:16

DGL Member

Registriert: Do Dez 05, 2002 10:35
Beiträge: 4234
Wohnort: Dortmund

Das ist ja auch klar. Er muss ja alle Dateien in einen riesen Text schreiben.

Aber wie wäre es denn mit der SelectDirectory funktion? Zu finden ist diese in der Unit FileCtrl.
Und Vorsicht. Es gibt zwei Funktionien mit dem Namen SelectDirectory. Ich meine diese.

Code:

function SelectDirectory(const Caption: string; const Root: WideString; var Directory: string): Boolean;

Die Andere ist ein Merkwürdig aussehender selbstgemachter Dialog.

Und dann kannst du dir alle Dateien mittes FindFirst, FindNext und FindClose suchen.

Nach oben

Finalspace

Betreff des Beitrags:

Verfasst: Do Apr 22, 2004 12:08

DGL Member

Registriert: Mi Okt 16, 2002 15:06
Beiträge: 1012

SelectDirectory kommt auch noch dazu, ich lass aber den opendialog nich weg, ich ignorier jetzt einfach das man nur ne bestimmte anzahl an dateien adden kann.

Da es kein fehler von mir ist, und der normale Delphi TOpenDialog auch nich geht, reicht mir das aus.

Ich brauch umbedingt noch den API Befehl für SelectDirectory !

Ach nochwas, FindFirst und TSearchRec kann ich nicht benutzen.
kann nur normale AnsiStrings

matane,
Final

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: Do Apr 22, 2004 13:30

DGL Member

Registriert: Do Dez 05, 2002 10:35
Beiträge: 4234
Wohnort: Dortmund

Also der Apiaufruf von SelectDirectory ist SHBrowseForFolder und das ganze geht über Shellobjekte. Ist ein wenig mehr als nur SHBrowseForFolder. Zu finden ist das ganze auch in den Quellen der VCL. Auf wunsch kann ich dir auch das Stück per PM zuschicken.

Zu FindFirst. Ich habe mal geschaut es gibt da auch eine Version die mit WideStrings klar kommt. Das ganze nennt sich FindFirstFile.

Nach oben

Seite 1 von 1

[ 12 Beiträge ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 2 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.