سلام اقای کشاورز
تمام سایت پرشده از این تاپیک لطفا جواب بدید
همه تو ذخیره اش مشکل ندارن تو بازیابیش مشکل دارن
procedure TForm1.ADOTable1AfterScroll(DataSet: TDataSet);
var
tmpBLOB : TBLOBField;
tmpSt: TMemoryStream;
begin
if not ADOTable1.Active then
Exit;
Label1.Caption:=ADOTable1.FieldByName('Pic').AsStr ing;
tmpBLOB := TBLOBField(ADOTable1.FieldByName('Pic'));
if tmpBLOB.BlobSize<10 then
begin
Image2.Picture.Bitmap.Canvas.FillRect(Image2.Pictu re.Bitmap.Canvas.ClipRect);
Exit;
end;
tmpSt:= TMemoryStream.Create;
tmpBLOB.SaveToStream(tmpSt);
tmpSt.Seek(0, soFromBeginning);
Image2.Picture.Bitmap.LoadFromStream(tmpSt);
tmpSt.Free;
end;
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول