Question

看的懂delphi PAS代码的来，帮我摘取下主要代码，谢谢，急！

加QQ983382884，我发代码，谢谢

Answer 1

添加
procedure TForm1.Button1Click(Sender: TObject);
var
myjpeg:tjpegimage;
ms:tmemorystream;
begin
myjpeg:=tjpegimage.Create;
myjpeg.Assign(image1.Picture.Graphic);
ms:=tmemorystream.Create ;
myjpeg.SaveToStream(ms);
ms.Position:=0;
adotable1.Append;
tblobfield(adotable1.FieldByName('image1')).LoadFromStream(ms);
adotable1.Post;
messagebox(getactivewindow(),'图像保存成功','保存',mb_ok);

显示
end;

procedure TForm1.Button2Click(Sender: TObject);
var
myjpeg:tjpegimage;
ms:tmemorystream;
begin
ms:=tmemorystream.Create;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from imagesystem');
adoquery1.Open;
tblobfield(adoquery1.Fields[1]).SaveToStream(ms);
ms.Position:=0;
myjpeg:=tjpegimage.Create;
myjpeg.LoadFromStream(ms);
image2.Picture.Bitmap.Assign(myjpeg);

end;

Answer 2

代码呢?在哪里