Ne znam kako da ubacim sliku na formu Delphija iz ADO, a pri tome da u bazi bude upisana putanja? Pa eto ako neko ima malo vremena i za mene
Ubacivanje slike u Delphi preko ADO. Molim Vas za pomoc.
Zaključano
Zakačeno
Na paleti Additional imaš komponentu image. postaviš je na forum konektuješ se pročitaš putanju iz baze i učitaš je u sliku i to je to.
image1.Picture.LoadFromFile('Putanjaslike');
image1.Picture.LoadFromFile('Putanjaslike');
izmenjeno 1 put, poslednji put bronko123 23.11.2006. u 13:55
Izmene poruke
- bronko12323.11.2006. u 13:55zapis iz teksta poruke
I dalje mi nije jasno
onda detaljnije:
postavis na formu i jednu ADOQuery komponentu. konektujes je na bazu. u SQL joj ukucas:
dupli klik na ADOQuery1 i Add Fields. dodas Fieldove koji su ti potrebni (obavezno onaj koji sadrzi putanju do slike).
onda u OnCreate forme na kojoj se sve to nalazi stavis:
a u ADOQuery1.AfterScroll stavis kako ti je IgorMedo rekao:
Pozdrav
postavis na formu i jednu ADOQuery komponentu. konektujes je na bazu. u SQL joj ukucas:
Code:
SELECT * FROM nazivtabelesapoljemsaputanjomdoslike
SELECT * FROM nazivtabelesapoljemsaputanjomdoslike
dupli klik na ADOQuery1 i Add Fields. dodas Fieldove koji su ti potrebni (obavezno onaj koji sadrzi putanju do slike).
onda u OnCreate forme na kojoj se sve to nalazi stavis:
Code:
ADOQuery1.Open
ADOQuery1.Open
a u ADOQuery1.AfterScroll stavis kako ti je IgorMedo rekao:
Code:
image1.Picture.LoadFromFile(ADOTable1nazivpoljasaputanjomdoslike.Value)
image1.Picture.LoadFromFile(ADOTable1nazivpoljasaputanjomdoslike.Value)
Pozdrav
procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
if Button = TNavigateBtn(nbInsert) then begin
OpenDialog1.Execute;
AdoTable1.FieldByName('slike').AsString:=OpenDialog1.FileName;
end;
if Button = TNavigateBtn(nbPost) then begin
Image1.Picture.LoadFromFile(ADOTable1.fieldbyname('slike').Text);
end;
end;
procedure TForm1.ADOTable1AfterScroll(DataSet: TDataSet);
begin
If ADOTable1.fieldbyname('slike').Text<>''then begin
Image1.Picture.LoadFromFile(ADOTable1.fieldbyname('slike').Text);
end;
end;
naprimer.
begin
if Button = TNavigateBtn(nbInsert) then begin
OpenDialog1.Execute;
AdoTable1.FieldByName('slike').AsString:=OpenDialog1.FileName;
end;
if Button = TNavigateBtn(nbPost) then begin
Image1.Picture.LoadFromFile(ADOTable1.fieldbyname('slike').Text);
end;
end;
procedure TForm1.ADOTable1AfterScroll(DataSet: TDataSet);
begin
If ADOTable1.fieldbyname('slike').Text<>''then begin
Image1.Picture.LoadFromFile(ADOTable1.fieldbyname('slike').Text);
end;
end;
naprimer.
Potpis
Sto puta sam ti SRPSKI rekao:
ono što jednom crack-uješ,
ne možeš više da patch-uješ!
ono što jednom crack-uješ,
ne možeš više da patch-uješ!