Entwickler-Ecke
Datenbanken - Image Database erstellen und wieder auslesen EDIT!!!
iPlayboy - So 20.01.08 01:37
Titel: Image Database erstellen und wieder auslesen EDIT!!!
| Zitat: |
Hallo,
also ich hab noch nie eine Database erstellt deshalb hab ich kA wie ich weiterkomme.....
Was ich vorhab ist das wenn ich aus einer ComboBox etwas ausweahle er mir das dazugehoerige Bild ausgibt.
So in etwa :
EDIT:
Meinung geändert , die Bilder sollen in einem Ordner im Vezeichnis gespeichert sein wo die Database drauf zugreift. Der User soll am ende die nur die Bilder sehen die er in der ComboBox ausgewählt hat. Er soll nicht selbst Bilder abspeichern können.
Ich weiss halt nicht wie ich jetzt ne Database erstelle und welche ich nehmen muss/sollte ( Paradox oder dBase oder was es da alles gibt) und wie ich das Abspeicher und wie ich es wieder abrufe :)
totales Neuland für mich....
Bei der SuFu hab ich leider nichts wirklich gutes gefunden was mich weiterbringen könnte.....
Danke schonmal für eure Hilfe |
Hat sich erledigt !!!
Ich habs jetzt so :
TreeListView und wenn man auf Abbruch.bmp klickt öffnet er das Bild im TImage....
hier mein Code:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
| procedure TForm2.ListChange(Sender: TObject;
Node: TTreeNode);
var
LoadFile: String;
begin
if List.Selected.Parent <> nil then
begin
LoadFile := IncludeTrailingBackslash(extractfilepath(paramstr(0))) +
'Maps\' + List.Selected.Text;
TImage.Picture.LoadFromFile(LoadFile);
end
end; |
Allerdings weiß ich nicht wie ich das jetzt mache ohne das in der TreeListView die endungen stehen. Ich möcht das dort einfach nur der Name des Bildes steht z.b. Abbruch und nicht Abbruch.bmp
wie mach ich das ?
Noob23 - So 20.01.08 13:48
hi ho,
du bist ja lustig, solltest so spät lieber nicht mehr programmieren :)
Delphi-Quelltext
1:
| 'Maps\' + List.Selected.Text + '.bmp'; |
versuchs mal so ;)
gruß noob23
iPlayboy - So 20.01.08 20:13
 Noob23 hat folgendes geschrieben: |
hi ho,
du bist ja lustig, solltest so spät lieber nicht mehr programmieren :)
Delphi-Quelltext 1:
| 'Maps\' + List.Selected.Text + '.bmp'; |
versuchs mal so ;)
gruß noob23 |
Ah ja danke ^^
aber wie würd ichs machen wenn das Bild jetzt 00404000.bmp heisst ich aber in der TreeListView das Bild als "Zappeldschungel" nenne?
EDIT:
Ich hab außerdem Probleme mit deinem Code oben ^^
da die Bilder .png Bilder sind hab ichs also .png genannt.
allerdings gibt der mit nen error wenn ich die abrufen will Oo
".png unknown file extension"
warum?
Noob23 - Sa 26.01.08 11:59
wenn das bild einen namen hat der auf anhieb nix aussagt könntest du es in deiner liste "zappendschungel" reinschreiben und per if abfrage prüfen was dahinter steckt
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
| procedure TForm2.ListChange(Sender: TObject;
Node: TTreeNode);
var
LoadFile: String;
checkeditem:string;
begin
checkeditem := List.Selected.Text;
if checkeditem = 'Zappendschungel' then checkeditem := '00404000';
if List.Selected.Parent <> nil then
begin
LoadFile := IncludeTrailingBackslash(extractfilepath(paramstr(0))) +
'Maps\' + checkeditem + '.bmp';
TImage.Picture.LoadFromFile(LoadFile);
end
end; |
für dein anderes problem mit png-bildern wirds schon schwerer, für jpg weiß ich das du einfach bei den uses noch "jpeg" aufnimmst aber png oder der gleichen wirst wohl konvertieren müssen ... google doch mal nach GRAPHICEX ;)
gruß noob23
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!