Question

我想创建一个选项，使用MyDac将delphi（X10，Android）中的图像上传到我的数据库，但是我什么也没找到，有人可以帮助我一些想法吗？

哦！如果有人对如何无需MyDac发送图像最简单的想法，我会很感激

（我想要做的是一个简单的系统，可以从我的设备为Mysql中的列发送附件（JPG和PNG）

Answer 1

将图像字段定义为斑点字段。根据要存储的图片大小，选择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;

使用MyDac（？）（delphi）上传图像

1 个答案: