Загрузите изображение с MyDac (?) (Delphi)

Question

Загрузите изображение с MyDac (?) (Delphi)

0

Я хочу создать опцию для загрузки изображения в Delphi (X10, Android) в мою базу данных с MyDac, но я ничего не нашел по этому поводу, кто-то может мне помочь с какой-нибудь идеей?

Ой ! Если у кого-то есть самая простая идея о том, как отправить изображение без необходимости MyDac, я был бы благодарен

(То, что я хочу сделать, это простая система для отправки вложений (JPG и PNG) с моего устройства для моей колонки в Mysql)

Pablo Abreu 12 март 2019, в 19:45

Источник

0

Вы пытаетесь сохранить изображения в вашей базе данных или как?
Jerry Dodge 12 март 2019, в 20:32
0

Да, в базе данных mysql
Pablo Abreu 14 март 2019, в 05:30

Теги:

mysql

delphi

1 ответ

Ещё вопросы

Вы пытаетесь сохранить изображения в вашей базе данных или как?

vincent · Accepted Answer · 2019-03-13T07-30-00.000Z

Определите ваше поле изображения как поле BLOB-объектов. В зависимости от размера ваших изображений, которые вы хотите сохранить, выберите TINYBLOB, BLOB, MEDIUMBLOB, or LONGBLOB ((https://dev.mysql.com/doc/refman/8.0/en/blob.html). Я нашел этот пример на форуме Devart:

Чтобы загрузить графические файлы, такие как JPEG, в поле Blob, вы можете использовать следующий код:

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;

Извините за задержку с ответом. Я новичок в Delphi, в первом коде вы использовали "image1 <> nil", но как мне получить изображение? С помощью ActionList "взять фотографию из библиотеки" или с помощью "TimageControl"? Как delphi будет понимать «изображение1» как изображение?
Image1 - это компонент TImage ( docwiki.embarcadero.com/Libraries/Tokyo/en/Vcl.ExtCtrls.TImage ), который вы помещаете в форму, точно так же, как нажимаете на нее кнопку.