25. november 2002 - 10:49
Der er
18 kommentarer og 1 løsning
Fejl ved Timage.Picture.LoadFromfile (unknown file extention)
procedure TUdskriv.Udskriver(aSti, aFil : String); var i, StartTop, YDiff : integer; IniFil : TIniFile; aPicture : TImage; aLabel, bLabel, cLabel : TLabel; aListe : TStringList; BilledFil : String; begin StartTop := 8; YDiff := 50; aListe := TStringList.Create; IniFil := TIniFile.Create(aSti+aFil); For i := 1 to StrToInt(IniFil.ReadString('0', 'AntalBilleder', '')) do begin IniFil.ReadSectionValues((IntToStr(i)), aListe); //Læser alt fra sektionen (i) aPicture := TImage.Create(nil); // Billed With aPicture do begin Width := 400; Height := 400; Left := 8; BilledFil:= Main.EdtDirectory.Text+'\'+IniFil.ReadString(IntToStr(i), 'Løsning', ''); >> Picture.LoadFromFile(BilledFil); end; InsertComponent(aPicture); inc(StartTop, YDiff); end; aListe.Free; IniFil.Free; end; Ved >> får jeg følgende fejl: Unknown picture file extension (.jpg). Hvorfor?????? Jeg har andre steder i programmet hvor jeg får vist jpg billeder vha. TImage
Annonceindlæg tema
Offentlig digitalisering
Fra effektivisering til digital suverænitet. Hvordan skaber det offentlige en digital fremtid med AI, sikkerhed og kontrol i centrum?
25. november 2002 - 11:03
#1
har du prøvet med: aPicture.LoadFromFile(BilledFil);
25. november 2002 - 11:04
#2
ups doh jeg er vidst dum ligenu
25. november 2002 - 11:05
#3
men generelt er det ikke godt at bruge "with do" da den nemt kan lave fejl som er svære at finde
25. november 2002 - 11:12
#4
Jeg er åbne overfor andre forslag
25. november 2002 - 11:19
#5
har du husket at tilføje jpeg i uses Stoney
25. november 2002 - 11:29
#6
>> Stoney Ja, Jpeg er i uses
25. november 2002 - 12:00
#7
Virker fint her! :)
26. november 2002 - 10:19
#8
Skal jeg virkelig prøve at gå forgæves til eksperten?
26. november 2002 - 10:29
#9
Måske er det jpg-formatet der er ukendt!? Prøv at lave en tegning i paint, gem den som jpg og hent din ind i dit program...
26. november 2002 - 10:39
#10
Jeg kan få vist det samme jpg billede andet sted i programmet uden problemer, men jeg prøver lige..
26. november 2002 - 10:47
#11
>>Hermandsen Det ændre ikke noget som helst, jeg får stadig samme fejl. Mystisk
26. november 2002 - 12:06
#12
Jeg ved godt at det ikke er det der er problemet, men gør lige det her for at vise billedet på formen og fjerne det når formen bliver fjernet: aPicture := TImage.Create(Self); aPicture.Width := 400; aPicture.Height := 400; aPicture.Left := 8; aPicture.Parent := Self; aPicture.Picture.LoadFromFile(Main.EdtDirectory.Text+'\'+IniFil.ReadString(IntToStr(i), 'Løsning', '')); InsertControl(aPicture); //Du behøver vist ikke denne funktion, men den ødelægger ikke noget, så bare lad den være! ;)
26. november 2002 - 12:17
#13
Jeg får følgende fejl ved insertControl [Error] FrmUdskriv.pas(71): Incompatible types: 'TControl' and 'TImage' så den har jeg fjernet, men det ændre ikke noget ved det oprindelige problem.
26. november 2002 - 13:52
#14
Øhhh, så skriv formens navn.InsetControl... Det samme gælder under Create... Sæt din forms navn ind i stedet for Self! Det løser ikke dit problem, men nu kan du da se billedet! :) Jeg lavede selv et lille eksempel: procedure TForm1.Button1Click(Sender: TObject); var I: TImage; begin I := TImage.Create(Self); I.Parent := Self; I.Picture.LoadFromFile('C:\WINDOWS\Skrivebord\hest.jpg'); InsertControl(I); end; Og det ser altså ud til at virke ganske udemærket...
26. november 2002 - 14:19
#15
Jeg har prøvet dit eksempel i et nyt projekt, men får stadig samme fejl. Jeg overvejer at lukke spørgsmålet og finde ud af noget andet. Hermandsen >> Jeg vil gerne smide nogle points til dig, hvis du lægger et svar.
26. november 2002 - 14:26
#16
Hvis jeg angiver et jpg billede i object inspectoren i picture, så er der intet problem
29. november 2002 - 00:21
#17
Svar! Har du prøvet først at hente et jpg-billede ind fra Object Inspector, og derefter loade et via Picture.LoadFromFile?
29. november 2002 - 08:04
#18
Hermandsen>> Ja, det har jeg. Det er intet problem at hente det i object inspector, men når jeg prøver at hente det med loadFromFile, så får jeg fejlen.
29. november 2002 - 08:04
#19
Tak for hjælpen.
Kurser inden for grundlæggende programmering