image1 den vt kaydetme

[erdogan_ozkaya]

Arkadaşlar;

personelin resmin kaydetmek için image nesnesi var normalde resmi seçip aşağıdaki kod ile kaydedebiliyorum bir sorun yok.

Kod: Tümünü seç

qryPERSONEL_DB.fieldbyname('PERSONEL_RESIM').asstring:= dlgOpenPic1.FileName;

fakat image nesnesine webcam den görüntü aktarınca kaydedenmiyorum nasıl bir kod yazmalıyım acaba ?
denedim olmuyor

Kod: Tümünü seç

qryPERSONEL_DB.fieldbyname('PERSONEL_RESIM').asstring:=img1.Picture.Graphic;

[SimaWB]

img1.Picture.SaveToFile işinizi görmüyor mu?

[erdogan_ozkaya]

dosya yokki görmüyor

[SimaWB]

"image nesnesine webcam den görüntü aktarınca" dediğinize göre, TImage'ın içinde görüntü olduğunu düşünmüştüm.

[erdogan_ozkaya]

hocam web cam den görüntüyü attım imagede resim var ??

[SimaWB]

Kod: Tümünü seç

qryPERSONEL_DB.fieldbyname('PERSONEL_RESIM').asstring:= dlgOpenPic1.FileName;

Gönderdiğiniz yukarıdaki kodla "PERSONEL_RESIM" alanına string bir ifadeyi atıyorsunuz. Bu string ifade resim dosyasının fiziksel yolunu belirtiyor sanırım. Bu şekilde işinizi gördüğüne göre ve "imagede resim var" dediğinize göre; ben de diyorum ki:
1 - Image'daki resmi SaveToFile ile kaydedin.
2 - Kaydettiğiniz bu yolu aynen yukarıda yaptığınız gibi "PERSONEL_RESIM" alanına kaydedin.

[erdogan_ozkaya]

hocam işin içinden çıkamadım valla
pc başlansanda göstersem olurmu ?

[xozcanx]

Kod: Tümünü seç

var
  Resim: TMemoryStream;
begin
    Resim := TMemoryStream.Create;
    Image1.Picture.Graphic.SaveToStream(Resim);
    Resim.Position      := 0;
    TBlobField(qryPERSONEL_DB.FieldByName('PERSONEL_RESIM')).LoadFromStream(Resim);
    Resim.Free;
end;

[erdogan_ozkaya]

ekte örnek var belki işine yarayan arkadaş olur.

teşekkürler.