procedure TForm1.FormCreate(Sender: TObject);
var
pjpg:tjpegimage;
pic:TMemoryStream;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from ry');
ADOQuery1.Open;
ADOQuery1.Last;
pjpg:=tjpegimage.Create;
pjpg.LoadFromFile('c:\1.jpg');
pic:=TMemoryStream.Create;
pjpg.SaveToStream(pic);
pic.Position:=0;
TBlobField( ADOQuery1.FieldByName('image')).LoadFromStream(pic);
ADOQuery1.Post;
pic.Free;
pjpg.free;
end;
end.
var
pjpg:tjpegimage;
pic:TMemoryStream;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from ry');
ADOQuery1.Open;
ADOQuery1.Last;
pjpg:=tjpegimage.Create;
pjpg.LoadFromFile('c:\1.jpg');
pic:=TMemoryStream.Create;
pjpg.SaveToStream(pic);
pic.Position:=0;
TBlobField( ADOQuery1.FieldByName('image')).LoadFromStream(pic);
ADOQuery1.Post;
pic.Free;
pjpg.free;
end;
end.
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货