[delphi] korte pad naam bepalen

[Tom-my]

Wastie weer, ik word hier dan ook nogal gestoord van.

als ik een directory + filenaam in een edit veld gooi en dan deze functie aanroep met die long als de edit.text, dan krijg ik netjes mn 8.3 dosformaat gebeuren terug. Maar doe ik dit vanuit een memorytabel (van rxlib) dus k haal daar uit een char veld de longname en gooi die door deze procedure, dan krijg ik niente de pasta terug.

!!HELP!! [trekt haren uit hoofd]

Misschien dat het komt door dat GetShortPathName een null terminated string of whatever moet zijn, maarre hoe maak ik dat van dat recordveldje of wat doe ik anders verkeerd?

function Tform1.LongToShortPath(const Long: string): string;
var
ActualLength: Longint;
begin
SetLength(Result, Length(Long) + 1);
ActualLength := GetShortPathName(PChar(Long), PChar(Result), Length(Result));
SetLength(Result, ActualLength);
end;

[Creepy]

code:

function Tform1.LongToShortPath(const Long: string): string;
var
  ActualLength: Longint;
  dummy: pchar;
begin
  SetLength(dummy,255); // gok maar wat.
                // de lengte van een long
                // is 4 bytes dacht ik..
                // das dus 4 karakters.. en dat schiet niet op

  ActualLength := GetShortPathName(PChar(Long), dummy, 255);
  if actuallength > 0 then
     result:=string(dummy)
  else
    result:='';
end;

Niet getest.. dus er zou nog een fout in kunnen zitten

Maar wat jij deed was de lengte wel ERG kort zetten, en alleen de LENGTE van result zetten i.p.v. de inhoud.

Wat GetShortPathName teruggeeft is de lengte van het teruggeven padnaam. Als dat 0 is, is er iets misgegaan (zeer waarschijnlijk is dummy dan te klein). Als de lengte > 0 dan geeft ie het pad naam als string terug.

[Tom-my]

Op maandag 24 december 2001 09:38 schreef Creepy het volgende:

code:

function Tform1.LongToShortPath(const Long: string): string;
var
  ActualLength: Longint;
  dummy: pchar;
begin
  SetLength(dummy,255); // gok maar wat.
                // de lengte van een long
                // is 4 bytes dacht ik..
                // das dus 4 karakters.. en dat schiet niet op

  ActualLength := GetShortPathName(PChar(Long), dummy, 255);
  if actuallength > 0 then
     result:=string(dummy)
  else
    result:='';
end;

Niet getest.. dus er zou nog een fout in kunnen zitten

Maar wat jij deed was de lengte wel ERG kort zetten, en alleen de LENGTE van result zetten i.p.v. de inhoud.

Wat GetShortPathName teruggeeft is de lengte van het teruggeven padnaam. Als dat 0 is, is er iets misgegaan (zeer waarschijnlijk is dummy dan te klein). Als de lengte > 0 dan geeft ie het pad naam als string terug.

Hey, niet helemaal, want het werkt wel (getest in een apart projectje) alleen niet met de path die ik er instopte, ik raakt namelijk ergens een '\' kwijt . Nu werkt het prima, nu zit ik nog met het probleem dat het alleen werkt op xp en win2000, me 98 geven allebei 2x een blauwscherm . Jij misschien enig idee wrom?

[Verwijderd]

misschien zoiets:

code:

function LongToShortPath(const LongFileName: string): ansistring;
var
  ActualLength: Longint;
begin
  SetLength(Result, Length(LongFileName) + 1);
  ActualLength := GetShortPathName(PChar(LongFileName), nil, 0);
  SetLength(Result, ActualLength);
  GetShortPathName(PChar(LongFileName), pointer(result), ActualLength);
end;

[Verwijderd]

Op maandag 24 december 2001 09:38 schreef Creepy het volgende:
// gok maar wat.
// de lengte van een long
// is 4 bytes dacht ik..
// das dus 4 karakters.. en dat schiet niet op

De size van het type long = 4 (sizeof(long)), maar het gaat over de string long. length kan je niet gebruiken icm types.

[Creepy]

Op maandag 24 december 2001 13:52 schreef deur het volgende:

[..]

De size van het type long = 4 (sizeof(long)), maar het gaat over de string long. length kan je niet gebruiken icm types.

sizeof(integer) werkt bij mij gewoon hoor, zonder dat ik char heb gedefineerd natuurlijk. Hm.. ach ja.. wie gebruikt long dan ook als var. naam

Uit de Delphi HELP:

Pass a variable reference to SizeOf to determine the number of bytes used to represent the variable. Pass a type identifier to SizeOf to determine the number of bytes used to represent instances of that type. SizeOf is useful for determining the amount of memory to specify for the FillChar, Move, or GetMem procedures.

Oftewel, je kan er variabelen of variabele typen er in smijten, je krijgt dan of het geheugen gebruik van de var, of het geheugen gebruik van het type var. terug.

[Tom-my]

soms zit het mee, soms niet zo heel erg hehehe

[Creepy]

nog steeds die crash? Hm.. denk dat ik het al zie.
Probeer eens

code:

getmem(dummy,255)

i.p.v.

code:

setlength(dummy,255)

. Natuurlijk niet vergeten na het gebruik van dummy een

code:

freemem(dummy)

te doen