Timage den VT ye kayıt [Çözüldü]

[xozcanx]

Merhaba;

Kod: Tümünü seç

procedure TForm1.Resimal;
var
  pano :TClipboard;
begin
  pano:=TClipBoard.Create;
  if pano.HasFormat(CF_BITMAP) then
     image1.Picture.Bitmap.Assign(pano);
     pano.Free;
end;

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  Resim: TMemoryStream;
begin
  if not (Image1.Picture.Graphic is TJPEGImage) then
    Image1.Picture.Graphic := TJPEGImage.Create;
    Resim := TMemoryStream.Create;
  try
    Image1.Picture.Graphic.SaveToStream(Resim);
    IBTable1.Append;
    IBTable1ADI.Text    :=Edit1.Text;
    IBTable1SOYADI.Text :=Edit2.Text;
    Resim.Position      := 0;
    TBlobField(IBTable1.FieldByName('RESIM')).LoadFromStream(Resim);
    IBTable1.Post;
    IBTransaction1.CommitRetaining;
   finally
    Resim.Free;
  end;
end;

Yukarıdaki kodlar ile hafızaya alınan resmi image1 üzerinde görüntülüyorum. fakat kayıt esnasında kullandığım kodlarda şöyle bir sorun var JPEG uzantılı dosyaları VT'ye kayıt edebilirken bmp yada farklı formattaki resimleri Timage üzerinden kayıt edemiyorum.

Görüntüleme için kullandığım kodlar ise aşağıdaki gibi, Bu alanda sorun yok sadece paylaşmak istedim.

Kod: Tümünü seç

procedure TForm1.DBGrid1Click(Sender: TObject);
var
  JpegImage: TJPEGImage;
  BlobStream: TStream;
begin
  if (not IBTable1.FieldByName('RESIM').IsNull) then
    begin
      BlobStream := IBTable1.CreateBlobStream(IBTable1.FieldByName('RESIM'),bmRead);
      JpegImage := TJPEGImage.Create;
      try
        JpegImage.LoadFromStream(BlobStream);
        Image2.Picture.Assign(JpegImage);
        Image2.Visible := True;
      finally
        JpegImage.Free;
        BlobStream.Free;
      end;
    end
  else
    Image2.Visible := False;
end;

Şimdiden ilgilenen herkese Teşekkürler.

.

[csunguray]

Aslında kaydediyorsun. Ama yüklerken geri yükleyemiyorsun. Çünkü yüklerken resmin her halükarda JPEG olduğunu varsayıyorsun. Bu durumda kaydederken de öncelikle JPEG formatına çevirip kaydedersen iyi olur.

Kod: Tümünü seç

procedure TForm1.StoreJpegImageToBlobField(Image1: TImage; var BlobField1: TBlobField);
var
  Stream1: TBlobStream;
  Jpeg1: TJpegImage;
begin
  try
    Stream1 := TBlobStream.Create(BlobField1, bmWrite);
    Jpeg1 := TJpegImage.Create;
    if Image1.Picture.Graphic <> nil then
    begin
      if not Image1.Picture.Graphic.Empty then
      begin
        if Image1.Picture.Graphic is TJpegImage then
        begin
          Image1.Picture.Graphic.SaveToStream(Stream1);
          // ShowMessage('O bir jpeg. size='+IntToStr(Stream1.Size));
        end
        else
        begin
          Jpeg1.Assign(Image1.Picture.Graphic);
          Jpeg1.Compress;
          Jpeg1.SaveToStream(Stream1);
        end;
      end;
    end;
  finally
    Jpeg1.Free;
    Stream1.Free;
  end;
end;

[xozcanx]

İlginize gerçekten teşekkürler.
Konuyu araştırmadan buraya yazmadım emin olun. 4 yıl önceki bir konuda da Buradaki kodları belirtmişsiniz.
viewtopic.php?f=2&t=6107&start=15
Ama malesef istediğim sonucu alabilmiş değilim
Ayrıca Şu alanda da hata vermekte XE5 kullanıyorum.

[csunguray]

Eğer DB'ye bağlanırken ADO bileşenlerini kullanıyorsanız:

Kod: Tümünü seç

var
  Stream1: TADOBlobStream;

olarak değiştirin.

[ender_arslanturk]

Selâmlar,

İster jpg, ister png olsun resmin datasını aldırarak ta kayıt edebilirsiniz aslında.. Gösterirken yine datasını image atayabilirsiniz.

Değişik bir yöntem ama gönül rahatlığıyla her formatı veritabanına kayıt ettirir.

Bakınız : www.delphiturkiye.com/forum/viewtopic.php?f=19&t=30850

[xozcanx]

Vermiş olduğunuz değerli cevaplar için teşekkürler.
@ender_arslanturk
sizin çalışmanızıda inceledim olaya farklı bir bakış açısı getirmşsiniz bu gerçekten çok iyi, sanırım benim seçtiğim resmin boyutundan kaynaklanıyor olacak çözümleyip açması biraz zaman aldı
ilk mesajdada belirttiğim gibi panoda olan bir resmi timagede gösteriyorum ve bunu kaydetmek istiyorum demiştim. aradaki if kontrolünü kaldırdım ve kayıt işlemini direkt yapıyorum şuan içinde soruna çözüm bulmuş durumdayım.

Kod: Tümünü seç

var
  Resim: TMemoryStream;
begin
    Resim := TMemoryStream.Create;
    Image1.Picture.Graphic.SaveToStream(Resim);
    IBTABLE1.Open;
    IBTable1.Append;
    IBTable1ADI.Text    :=Edit1.Text;
    IBTable1SOYADI.Text :=Edit2.Text;
    Resim.Position      := 0;
    TBlobField(IBTable1.FieldByName('RESIM')).LoadFromStream(Resim);
    IBTable1.Post;
    IBTransaction1.CommitRetaining;
    Resim.Free;
end;

Tekrar teşekkürler,

[Commandx]

Çok kısa yolunu buldum

Kod: Tümünü seç

query. insert;
image1. picture. loadfromfile('c:\resim. jpg') ;
jvdbimage1. picture. assign(image1. picture. graphic) ;
query. post;

Bir ara lazım oldu.