Databaseden resim yolunu alma

[Serhat]

Merhaba seçmiş olduğum resmin yolunu databaseye kaydediyorum, ve tekrar imagede göstermek istediğimde resimdeki hata oluşuyor,
acaba nerede hata yapıyorum???





Kod:

Kod: Tümünü seç

procedure TForm7.LogoClick(Sender: TObject);
var
  ResimYol: String;
begin
  try
    With TOpenDialog.Create(nil) do
    begin
      Filter := 'Resim(*.bmp)(*.jpeg)(*.jpg)(*.ico)(*.png)(*.gif)|*.bmp;*.jpeg;*.jpg;*.ico;*.png;*.gif';
      FilterIndex := 1;
      if Execute then
      begin
        with Form1.Ayarlar do
        begin
          SQL.Clear;
          SQL.Add('Update AYARLAR Set LOGO=:LG');
          ParamByName('LG').AsString := Filename;
          ExecSQL;
          Close;

          Close;
          SQL.Clear;
          SQL.Add('Select * From AYARLAR');
          Open;
          ResimYol := FieldByName('LOGO').AsString;
          Image1.Picture.LoadFromFile(ResimYol);
        end;
      end;
    end;
  except
  end;

Bu şekilde aldığımda sorun yok:

Kod: Tümünü seç

procedure TForm7.Button1Click(Sender: TObject);
begin
  image1.Picture.LoadFromFile('C:\Yeni klasör\CrystalRush.bmp');
end;

[AliZairov]

İyi akşamlar.

Kaydetdiğiniz resmin yolu v.t nasıl kayıt oluyo bi bakınız eğer doğruysa sorun, büyük ihtimal gerekli resim kütüphanelerini eklememenizden kaynaklanıyor.

XE2 üzeri için

Kod: Tümünü seç

  Vcl.Imaging.GIFImg,
  Vcl.Imaging.jpeg,
  Vcl.Imaging.pngimage,