databse sti til billede

Ja, jeg plejer at gemme billede navnet + evt. stien til billedet og når der så hentes/skiftes til en post så indlæses og vises biledet.

Hvis man bruger en Topenpicturedialog, skal jeg have stien læst ind i et dbedit

Hvad skriver man for at få stien ned til billedet

Hvad skriver man for at hente billedet ud fra stien i dbedit

hov det var vist ikke særligt klart....

Billedet som hentes via Topenpicturedialog skal kopieres til et under bibliotek

\billeder og så skal stien sættes i dbedit

Når man så går til næste post skal billedet indlæses - hvordan ?

For at kopiere en fil benytter du CopyFile
Stien og navnet til billedet finder du i OpenPictureDialog.FileName

Hvis billedet skal vises i en TImage benytter du Image.Picture.LoadFromFile(, og hvordan du gør det når du går til næste post kommer an på hvilken db du benytter eller hvilke komponenter du benytter.

Ja du skal selv indlæse billedet og gemme stien i din DB.

EKS :

procedure TForm3.BitBtn2Click(Sender: TObject);
label
Slut;
begin
Form1.OpenPictureDialog1.InitialDir := ('.\');
If Form1.OpenPictureDialog1.Execute Then
  Begin
  Form1.Image1.Picture.LoadFromFile(Form1.OpenPictureDialog1.FileName);
  Form1.DBEdit1.Text := Form3.OpenPictureDialog1.FileName;
  //HUSK AT GEMME STIEN I DIN DB - DET DER STÅR I DBEdit1 Feltet
Slut :
end;

-------------------------------------------------------------------------------

Du kan hente stien fra din DB via et DBEdit Felt og så få din Image komponent til at aflæse stien når du gennemløber dine poster.

EKS :

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
Form1.Image1.Picture.LoadFromFile(Form3.DBEdit1.Text);
end;

UPS Fejl i første EKS

procedure TForm1.BitBtn1Click(Sender: TObject);
label
Slut;
begin
Form1.OpenPictureDialog1.InitialDir := ('.\');
If Form1.OpenPictureDialog1.Execute Then
  Begin
  Form1.Image1.Picture.LoadFromFile(Form1.OpenPictureDialog1.FileName);
  Form1.DBEdit1.Text := Form1.OpenPictureDialog1.FileName;
  //HUSK AT GEMME STIEN I DIN DB - DET DER STÅR I DBEdit1 Feltet
Slut :
end;

Sådan skal den se ud

label slut??? Vask straks dit tastatur i sæbe og vand.

Ups ... ja det skal jeg nok det skulle ikke have været med hehe

Ups IGEN!!!
EKS 2 skal se sådan her ud :

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
Form1.Image1.Picture.LoadFromFile(Form1.DBEdit1.Text);
end;

Tak michael-schou..

Kigger på det i pinsen....

er det ikke nødvendigt at lave en

image.picture.free

For at frigive hukommelse ?

Det ved jeg faktisk ikke men når jeg laver reset af image komponenten så bruger jeg

Form1.Image1.Bitmap := Nil;

Jeg bruger ikke image.picture.free

Lyder måske som et dumt spørgsmål...

Form1.Image1.Bitmap := Nil;

er det generelt for alle billedformater eller kun *.bmp

Form1.Image1.Picture.LoadFromFile(Form1.DBEdit1.Text);

jeg bruger en actionlist og har tildelt speedbutton diverse actions

problemet er når jeg trykker på insert(ny post) så siger den(unknown picture file(.)') intention

problemet er:

Image1.Picture.LoadFromFile(dbedit1.Text);

stien er rigtig også intension c:\grafik\test.bmp

koden i dataset udfører eventen når der trykkes på nypost

Form1.Image1.Picture.LoadFromFile(Form1.DBEdit1.Text);

Det er da ikke nødvendigt at koden køres ved ny post

når man trykker next prior last virker det rigtigt fint

det er kun når jeg indsætter ny post....

Den hedder faktisk : Form1.Image1.Picture.Bitmap := Nil; :-)

Kode for "NyPOST" :

--KODE START--

procedure TForm1.BitBtn1Click(Sender: TObject);
Begin
Form1.Image1.Picture.Bitmap := Nil;
Form1.DBEdit1.Text := '';
Form1.ADOTable1.Refresh;
Form1.DataSource1.DataSet.Refresh;
Form1.ADOTable1.Insert;
end;

--KODE SLUT--

Hvis du stadig har problemer så prøv at indsætte

Form1.ADOTable1.Close;
Form1.ADOTable1.Open;

Før linjen : Form1.Image1.Picture.Bitmap := Nil;

bruger ikke ADO og understøttes ikke pt. af den db jeg bruger

Bruger du så BDE?

en 3 parts der hedder minitable

Ok den kender jeg så ikke lige .. men tror principet er det samme

Er lidt forundret...

Lavede en form2 og smed en Qeditor på og kørte

Form1.Image1.Picture.LoadFromFile(Form1.DBEdit1.Text);

Nu får jeg ikke fejlen (unknown picture file(.)') intention

Fjerner jeg qreport kommer fejlen tilbage

hov den sidste sætning var ikke rigtig

Fjerner jeg qeditor kommer fejlen tilbage

ok...lukker spørgsmålet - smid et svar michael

Okay her er et svar