resim göstermede sorun

[ertank]

Android kodunu aşağıdaki şekilde değiştirerek PC tarafında açabiliyor musunuz? Deneyebilir misiniz?

Kod: Tümünü seç

procedure TForm1.KAYDETClick(Sender: TObject);
begin
  if DEVRIYE_HAREKETLERI_DB.Active and (Image1.Bitmap <> nil) then
  begin
    DEVRIYE_HAREKETLERI_DB.Insert;
    TBlobField(DEVRIYE_HAREKETLERI_DB.FieldByName('RESIM1').Assign(Image1.Bitmap);
    DEVRIYE_HAREKETLERI_DB.Post;
  end;
end;

[erdogan_ozkaya]

yok ya bir türlü olmuyor valla anlamadım gitti

[ertank]

Database içindeki resim verisini disk dosyasına kaydettiğiniz zaman başka bir resim gösteren uygulama ile görebiliyor musunuz? Mesela IrfanView ile?

[erdogan_ozkaya]

o şekilde birşey denemedim ama delphi7 de kaydettiğimi delphi 7 de gösterebiliriyorum xe8 androidde sql kaydediyorum ama delphi 7de gösteremiyorum bir çok kod denedim alan adlarını değiştirerek denedim ama çalışmadı yok yok

[ertank]

Deneyebilir misiniz?

[erdogan_ozkaya]

arkadaşlar,

Jpg: TJPEGImage; burada hata veriyor uses ne eklemeliyim ?

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
var
  BlobStream: TStream;
  Jpg: TJPEGImage;
begin
  BlobStream := TMemoryStream.Create;
  myquery1.GetBlob(myQuery1.FieldByName('imagem')).SaveToStream(BlobStream);
  Blobstream.Position := 0;
  Jpg := TJPEGImage.Create;
  try
    Jpg.LoadFromStream(BlobStream);
    Image2.Picture.Assign(Jpg);
  finally
    Jpg.Free;
  end;
  BlobStream.Free;
end;

[ertank]

"Jpeg" olabilir mi?

[erdogan_ozkaya]

xe8 de kabul etmiyor android de

[ertank]

Sorunuzda FireMonkey (FMX) için yazılan bir kod olduğunu belirtmemiştiniz. FMX platformu için tüm resim formatlarını FMX.Graphics içindeki TBitmap bileşenini kullanarak yönetirsiniz.

[ozcank]

Bu şekilde kullandım ama hata verdi.
Ben SQL veri tabanına MD_YEDEK1 alanına jpg dosyasını yolu ile kaydediyorum.
MADEN\RESIM dosyası altında resimler.
MD_YEDEK1 de ise şu şekilde c:\maden\resim\resim.jpg olarak kayıtlı oraya kadar sıkıntı yok ama DBGrid1 den seçilen öğrencinin üzerinde cift tıklayınca resmin image1 de görünmesini istiyorum.

Kod: Tümünü seç

Var
Var
Stream: TStream;
begin
  Stream := MADENKAYIT.CreateBlobStream(MADENKAYIT.FieldByName('MD_YEDEK1'), bmRead);
  try
Resim.Picture.LoadFromFile(opendialog1.FileName);
  finally
    Stream.Free();
  end;
end;

---------------------------
Debugger Exception Notification
---------------------------
Project MADENPRJ1.exe raised exception class EInvalidCast with message 'Invalid class typecast'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------