delphi - MEGET mærkelig fejl med string - Udvikleren.dk

Tags: delphi

<< < 1 2 > >>

Bruger #3275 @ 26.01.06 16:23

Jeg er kommet ud for en meget mærkelig fejl med en string som indeholder stien til ens brugers account billede (f.eks. frøen, anden eller et custom billede). Det jeg gør er at læse AppData stien fra registry. Mit variabel ser nu sådan ud: PathToPicture:= C:\\Documents and Settings\\All Users\\Application Data. Derefter til føjer jeg \\Microsoft\\User Account Pictures\
Nu ser variablen sådan her ud:
C:\\Documents and Settings\\All Users\\Application Data\\Microsoft\\User Account Pictures\
Så bruger jeg en funktion som finder brugernavnet der er logget ind. Variabel er nu lig: C:\\Documents and Settings\\All Users\\Application Data\\Microsoft\\User Account Pictures\\Jonas-Bl

Så tilføjer jeg til sidst .bmp. Men det kommer ikke med?! Hvordan kan det være. Tænkte at stringen måske var for lang. Men skrev jeg manuelt mit brugernavn ind virkede det fint. Hvad i alverden er der galt??

-----------------------------
Jonas (Decko)
http://decko.1go.dk/blog

15 svar postet i denne tråd vises herunder
0 indlæg har modtaget i alt 0 karma

Sorter efter stemmer Sorter efter dato

Bruger #6080 @ 26.01.06 17:26

150

Hej Jonas

Det ville hjælpe en del hvis du kan vise noget kode ?

M.v.h. Johnny Rasmussen

Bruger #782 @ 26.01.06 18:46

291

showmessage(PathToPicture);
showmessage(strtoint(integer(fileexists(PathToPicture))));

Verdens bedste debuggings metode

Jeppe Johansen
Jeppesoftware@hotmail.com

Bruger #3470 @ 26.01.06 20:38

247

Verdens bedste debuggings metode

Jeppe Johansen
Jeppesoftware@hotmail.com

Interessant.. så nu når mit projekt spytter "sølle" (det er langt fra færdigt) 100 log linjer ud (med detaljer, dvs. i debug mode, bliver det jo lige så 10x så mange), så skal jeg sidde og trykke OK til hver, og desuden kunne huske dem i hovedet bagefter, så jeg kan finde fejlen, hvis der overhovet forekom en?

Beklager, kunne bare ikke lige lade være, når du nu skrev sådan en sætning

1101110100010110000101000001

Killers don't end up in jail - they end up on a high-score!

[Redigeret d. 26/01-06 20:41:00 af Nicolai Lyster Fersner]

Bruger #3275 @ 26.01.06 21:36

1.736

Koden...den er lidt fucked da jeg har leget lidt med at prøve at få den til at virke

Kode til at få user:

Kode

function GetCurrentUsername: string;
const
  cnMaxUserNameLen = 254;
var
  sUserName: string;
  dwUserNameLen: DWORD;
begin
  dwUserNameLen := cnMaxUserNameLen - 1;
  SetLength(sUserName, cnMaxUserNameLen);
  GetUserName(PChar(sUserName), dwUserNameLen);
  SetLength(sUserName, dwUserNameLen);
  Result := sUserName;
end;

Resten

Kode

function GetUserPicturePath: string;
var
  Reg: TRegistry;
  PathToPicture: string;
  Username: string;
begin
  Username:= GetCurrentUserName;
  Reg:= TRegistry.Create;
  Reg.RootKey:= HKEY_LOCAL_MACHINE;
  Reg.OpenKey('SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders', false);
  PathToPicture:= Reg.ReadString('Common AppData') + '\\Microsoft\\User Account Pictures\\' + UserName;
  //PathToPicture:= PathToPicture + 'bmp';
  //PathToPicture:= PathToPicture + '.bmp';
  Reg.CloseKey;
  Reg.Free;
  Result:= PathToPicture;
end;

-----------------------------
Jonas (Decko)
http://decko.1go.dk/blog

Bruger #3275 @ 27.01.06 09:33

1.736

Jeg satte lige et par breakpoints og tilføjede en watch til PathToPicture. Fandt ud af at stringen rent faktisk kommer til at hedde

Kode

'C:\\Documents and Settings\\All Users\\Application Data\\Microsoft\\User Account Pictures\\Jonas-Bl'#0'.bmp'

Nogen der kan lure fejlen??
I øvrigt bliver billedet fuldstændigt fucked når jeg loader det ind i delphi. Min grønne frø bliver lyserød i delphi.

-----------------------------
Jonas (Decko)
http://decko.1go.dk/blog

[Redigeret d. 27/01-06 09:40:50 af Jonas (Decko)]

Bruger #782 @ 27.01.06 11:02

291

bmp billeder skal shiftes da de bliver gemt som bgr istedet for rgb

Jeppe Johansen
Jeppesoftware@hotmail.com

Bruger #3275 @ 27.01.06 12:02

1.736

bmp billeder skal shiftes da de bliver gemt som bgr istedet for rgb

Jeppe Johansen
Jeppesoftware@hotmail.com

....how? Indtil videre er det kun lykkedes mig at lave den negativeret eller lilla.

Edit: ok nu er den grøn. Men den frø ser ikke så sund ud, den har hele tiden set sådan ud

http://img100.imageshack.us/img100/5774/froe1xd.jpg

-----------------------------
Jonas (Decko)
http://decko.1go.dk/blog

[Redigeret d. 27/01-06 12:28:40 af Jonas (Decko)]

Bruger #3275 @ 27.01.06 13:07

1.736

Fik løst problemet med stringen ved at finde en anden måde at finde brugernavnet på

. Men har stadig problemet med den misplacerede frø.

-----------------------------
Jonas (Decko)
http://decko.1go.dk/blog

Bruger #782 @ 27.01.06 22:32

291

Hvordan loader og bruger du den?

Jeppe Johansen
Jeppesoftware@hotmail.com

Bruger #3275 @ 28.01.06 14:43

1.736

Hvordan loader og bruger du den?

Jeppe Johansen
Jeppesoftware@hotmail.com

imgUser.Picture.LoadFromFile(GetUserPicturePath);

function GetUserPicturePath: string;
var
Reg: TRegistry;
PathToPicture: string;
Username: string;
begin
GetCurrentUsername(Username);
Reg:= TRegistry.Create;
Reg.RootKey:= HKEY_LOCAL_MACHINE;
Reg.OpenKey('SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders', false);
PathToPicture:= Reg.ReadString('Common AppData') + '\\Microsoft\\User Account Pictures\\' + UserName + '.bmp';
Reg.CloseKey;
Reg.Free;
Result:= PathToPicture;
end;

-----------------------------
Jonas (Decko)
http://decko.1go.dk/blog

<< < 1 2 > >>

MEGET mærkelig fejl med string

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler