برداشت شده از barnamenevis.com

__________________________________________________ __________

با سلام

دوستان، من نمی دانم به چه صورت تصویر را به جدول
اختصاص دهم

لطفا مرا راهنمائی کنید


Hamid Reza Afshar


یک نمونه برنامه برایت مینویسم :

procedure TForm2.Button2Click(Sender: TObject);
var fs: TFileStream;
bs: TBlobStream;
begin
if OpenPictureDialog1.Execute then
with Table1 do begin
active := true;
Insert;
fs := TFileStream.Create(OpenPictureDialog1.FileName, fmOpenRead);
bs := TBlobStream(CreateBlobStream(FieldByName('Graphic' ), bmWrite));
bs.CopyFrom(fs, 0);
bs.Free;
fs.Free;
Post;
end;
end;

انمیدونم چرا نمایش متن انگلیسی بد است؟؟!!


ناصر فدائی (:nas