Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi TImage in *.ini speichern/auslesen? (https://www.delphipraxis.net/4663-timage-%2A-ini-speichern-auslesen.html)

Tim.exe 8. Mai 2003 08:39


TImage in *.ini speichern/auslesen?
 
Hallo,

ist es eigentlich möglich ein TImage bzw. den Inhalt eines solchen (Inhalt ist ein *.ico) in eine *.ini zu speichern und wieder auszulesen?

Luckie 8. Mai 2003 09:31

Du könntest den Pfad zu dem Inhalt abspeichern.

Tim.exe 8. Mai 2003 09:44

Hihi, genau das habe ich schon probiert, aber das wollte bis jetzt nicht. Gibt es keine andere Möglichkeit? Dann probier ich mal weiter mit dem pfad...

Luckie 8. Mai 2003 09:56

Zeig mal Code, wie du es bisher probiert hast. Das geht bestimmt.

Tim.exe 8. Mai 2003 10:02

So, das hab ich eben auf die Schnelle gemacht, jetzt brauch ich nur noch den Aufruf das bei zeigen der Form (in OnCreate?) das Icon aus dem Edit (der Pfad) gelesen und in TImage gezeigt wird:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
        If OpenPictureDialog1.Execute then
        Image1.Picture.Icon.LoadFromFile(OpenPictureDialog1.FileName);
        Edit1.Text := OpenPictureDialog1.FileName;
end;
//###############################
procedure TForm1.FormCreate(Sender: TObject);
var
 savestat: TIniFile;
begin
savestat := TIniFile.Create(ExtractFilepath(Application.Exename)+'settings.ini');
try
Edit1.Text := savestat.ReadString('Iconpfad','Status1',Edit1.Text);
finally
savestat.Free;

end;
end;
//###############################
procedure TForm1.FormDestroy(Sender: TObject);
var
 savestat: TIniFile;
begin
savestat := TIniFile.Create(ExtractFilepath(Application.Exename)+'settings.ini');
try
savestat.WriteString('Iconpfad','Status1',Edit1.Text);
finally
savestat.Free;

end;
end;

Luckie 8. Mai 2003 10:11

Wie wäre es mit:
Delphi-Quellcode:
Image1.Picture.Icon.LoadFromFile(Edit1.Text);
:roll:

Tim.exe 8. Mai 2003 10:13

Manno welch schwere Geburt :wink:

vielen Dank :)


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:38 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz