Paradox veri tabanına resim yerlestirmede hata

[secret_boy]

merhaba herkese iyi seneler arkadaslar.
asagıda verdigim kodu calıstıramadım bana yardım edebilirmisiniz.

Kod: Tümünü seç

procedure TForm1.DBImage1DblClick(Sender: TObject);
var
yol:AnsiString;
begin
opendialog1.Title:='Resim Seç';
opendialog1.Filter:='ico dosyaları|*.ico|bmp dosyaları|*.bmp';
if opendialog1.Execute then
begin
yol:=opendialog1.FileName;
table1.Edit;
ImageRESMI.picture.loadfromfile(yol);
table1.Post;
end;
end;

hata olarak gosterdigi yer burası.

Kod: Tümünü seç

ImageRESMI.picture.loadfromfile(yol);

RESMI alanımı tabloda OLE olarak belirttim.
bu kod database wizard da hatasız calısıyor ama kendim olusturdugumda calısmıyor gerekli olan tum baglantıları yaptım ama olmadı.
zaman ayıran herkese tesekkurler..

[Kuri_YJ]

Selamlar,

Seçtiğiniz Dosya BMP'mi ICO mu vs?

Kolay Gelsin

[secret_boy]

kullanıcı ikisinin arasında tercih yaparak eklesin istiyorum.hangisini isterse bmp yada ico farketmez.
tesekkur ederim

[mrmarman]

Kod: Tümünü seç

şeklinde deneyin... Burada hata verdi dediği yeri gösterdiğinizde verdiği hatayı da yazarsanız daha kolay çözüm ararız...

Başarılar...

[rsimsek]

Jpeg Create arama kriterleri ile bulduğum şu link lerdeki bilgiler işinizi çözebilir

viewtopic.php?t=6244&highlight=jpeg+create
viewtopic.php?t=91&highlight=jpeg+create
viewtopic.php?t=12936&highlight=jpeg+create
viewtopic.php?t=6107&highlight=jpeg+create

[mrmarman]

Pardon code tag'ın içi boş çıkmış...

Kod: Tümünü seç

procedure TForm1.ImageRESMIDblClick(Sender: TObject);
var
  yol    : AnsiString;
  Ico    : TIcon;
  Bitmap : TBitmap;
begin
  opendialog1.Title := 'Resim Seç';
  opendialog1.Filter:= 'ico dosyaları|*.ico|bmp dosyaları|*.bmp';
  if opendialog1.Execute then
  begin
    yol := opendialog1.FileName;
    table1.Edit;
    If UpperCase(ExtractFileExt(OpenDialog1.FileName)) = '.ICO'
    then begin
           Ico := TIcon.Create;
           Ico.LoadFromFile(Yol);
           Bitmap := TBitmap.Create;
           Bitmap.Height := Ico.Height;
           Bitmap.Width := Ico.Width;
           Bitmap.Canvas.Draw(0, 0, Ico);
           ImageRESMI.picture.Graphic := Bitmap;
           Bitmap.Free;
           Ico.Free;
         end
    else ImageRESMI.picture.loadfromfile(yol);
    table1.Post;
  end;
end;

[secret_boy]

merhabalar
Delphinin verdigi hatayı resim olarak ekledim.simdiden tesekkur ederim.

[shadowmann]

yol yerine openpicturedialog1.filename i denermisin.Bir de jedinin db image ini kullanın. ayrıca

RESMI alanımı tabloda OLE olarak belirttim

demişsiniz. bildigiim kadarıyle bu alanın graphic veya blob olması lazım.

Kod: Tümünü seç

IBDSSBY.Edit;
if OpenPictureDialog1.Execute then 
 JvDBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

[mrmarman]

procedure TForm1.ImageRESMIDblClick(Sender: TObject);

Hocam. DBImage1'in adını IMAGEresmi olarak değiştir ve yazdığım kod ile güncelle, hem ICO hem BMP için çalışacaktır.

- Zaten hatada bağırıyor, IMAGEresmi tanımlanmamış diye...

[secret_boy]

tesekkurler hocam halletim ilgilenen herkese cok tesekkur ederim herkese basırılı gunler dilerim