Image Database erstellen und wieder auslesen EDIT!!!

iPlayboy · Beiträge: 43

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 :

user defined image

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 :

user defined image

TreeListView und wenn man auf Abbruch.bmp klickt öffnet er das Bild im TImage....

hier mein Code:

markieren

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 · Verfasst: So 20.01.08 13:48

hi ho,
du bist ja lustig, solltest so spät lieber nicht mehr programmieren

markieren

Delphi-Quelltext

1:	'Maps\' + List.Selected.Text + '.bmp';

versuchs mal so

gruß noob23

iPlayboy · Beiträge: 43

Noob23 hat folgendes geschrieben:

hi ho,
du bist ja lustig, solltest so spät lieber nicht mehr programmieren

markieren

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 · Verfasst: 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

markieren

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';
  //weitere abfragen ?!
  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

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme