使用MyDac上传图片(？)(delphi)

Question

我想创建一个选项，上传一个图像在德尔福(X10，安卓)到我的数据库与MyDac，但我没有找到任何关于这方面的东西，有人可以帮助我一些想法？

哦！如果有人有一个关于如何在不需要MyDac的情况下发送图像的最简单的想法，我非常感谢

(我想要做的是一个简单的系统，从我的设备为我的Mysql专栏发送附件(JPG和PNG) )

Answer 1

将图像字段定义为blob字段。根据要存储的图片的大小，选择TINYBLOB, BLOB, MEDIUMBLOB, or LONGBLOB ((https://dev.mysql.com/doc/refman/8.0/en/blob.html)。我在Devart的论坛上找到了这个例子：

若要在Blob字段中加载图形文件(如JPEG )，可以使用以下代码：

procedure TForm1.Button1Click(Sender: TObject);
var
  BlobStream: tStream;
  Surf: TBitmapSurface;
begin
  if Image1 <> nil then
  begin
    Surf := TBitmapSurface.Create;
    Surf.Assign(Image1.Bitmap);
    BlobStream := TMemoryStream.Create;
    if not TBitmapCodecManager.SaveToStream(BlobStream, Surf, '.jpg') then
      raise EBitmapSavingFailed.Create('No');
    BlobStream.Position := 0;
    myquery2.ParamByName('imagem').LoadFromStream(BlobStream, ftBlob);
    myquery2.ExecSQL;
    Surf.Free;
  end;
end;

若要将数据从Blob字段加载到TImage组件，请使用以下代码：

procedure TForm1.Button2Click(Sender: TObject);
var
  BlobStream: TStream;
begin
  BlobStream := TMemoryStream.Create;
  myquery1.GetBlob(myQuery1.FieldByName('imagem')).SaveToStream(BlobStream);
  Blobstream.Position := 0;
  Image2.bitmap.loadfromstream(blobstream);
  BlobStream.Free;
end;