Hallo!
hab mal Folgende Frage

Mit dieser Funktion können Lange Pfade in kurtze umgewandelt werden:

markieren

Code:

uses
  Windows, SysUtils;

function GetShortName(sLongName: string): string;
var
  sShortName:   string;
  nShortNameLen: Integer;
begin
  SetLength(sShortName, MAX_PATH);
  nShortNameLen := GetShortPathName(PChar(sLongName), PChar(sShortName), MAX_PATH - 1);
  if (0 = nShortNameLen) then
  begin
    // handle errors...
  end;
  SetLength(sShortName, nShortNameLen);
  Result := sShortName;
end;

// Example:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := GetShortName('C:\Program Files\Delphi6\Lib\test.cnt');
  // --> C:\PROGRA~1\Delphi6\Lib\test.cnt
end;

meinen code:

markieren

Code:

function GetShortName(sLongName: string): string;
var
  sShortName:   string;
  nShortNameLen: Integer;
begin
  SetLength(sShortName, MAX_PATH);
  nShortNameLen := GetShortPathName(PChar(sLongName), PChar(sShortName), MAX_PATH - 1);
  if (0 = nShortNameLen) then
  begin
    // handle errors...
  end;
  SetLength(sShortName, nShortNameLen);
  Result := sShortName;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := GetShortName(Edit1.Text);
end;

Es funktioniert nicht. Was mach ich falsch?

Hoffe ihr könnt mir helfen und danke schonmal im Voraus.

Peter kiers

Funktioniert doch.
Ist die Frage was du bei edit1.text drinn hast. Ich hab edit1 so gefüllt:

markieren

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var d:TOpendialog;
begin
  d:=TOpendialog.Create(self);
  d.Execute;
  edit1.Text:=d.FileName;
  d.free;
end;

Existiert die Datei auch?

Und eventuell gibt es auch Probleme mit relativen Pfaden.

markieren

Code:

procedure TForm1.Button1Click(Sender: TObject);
var d:TOpendialog;
begin
  d:=TOpendialog.Create(self);
  d.Execute;
  caption := d.FileName;
  d.free;
end;

Bei Caption:

C:\Documents and Settings\HP_Eigenaar\Bureaublad\Test.doc

Dass ist doch nich kurtz!

Peter

Nee, isses nich

dann solltest du dir wohl mal den Fehlercode anzeigen lassen, welchen GetShortPathName zurückgibt.

GetLastError

Ich habe es schon

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var d:TOpendialog;
begin
  d:=TOpendialog.Create(self);
  d.Execute;
  Caption := GetShortName(d.FileName);
  d.free;
end;

Danke fur die Hilfe.

Peter Kiers

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]

Hi,
ich würde d.Execute nicht einfach so aufrufen, besser wäre:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  d: TOpendialog;
begin
  d := TOpendialog.Create(self);
  try
    if d.Execute then
      Caption := GetShortName(d.FileName);
  finally
    d.free;
  end;
end;

Gruß

Danke viel mals.

peter Kiers

Zitat von MrKnogge:

Hi,
ich würde d.Execute nicht einfach so aufrufen, besser wäre:

Natürlich nicht, das war ja auch nur mal schnell zum testen.