Как добавить рисунок в формате jpeg в БД Paradox

[Stilet]

он только BMP читает

Если сделать как я сказал выше то и DBImage должен отображать jpeg.

[xxbesoxx]

DBImage должен отображать jpeg.

Должен да, компонент для отображения картинки из БД... Но, не читает, для этого пользовал Image .... На тот время очень старался но он не читает

[kropotkina-alice]

Сообщение от xxbesoxx

Где то 2 года назад писал ...... А сейчас только .pas открыл , думаю понятно

Красотуля...! разговор про JPEG и не BMP

КрасавЕ`ц!
Надо внимательнее читать советы опытных товарищей!
Stilet уже объяснил даже для тех, кто в ушанке, надетой поверх шлемофона:

unit main;

interface

uses
  Windows, jpeg, ...

А ваши надуманности в "коде" 2-хлетней давности лучше не демонстрировать, поверьте...
И, по-вашему, я не в состоянии усвоить, что речь идёт о картинке в формате JPEG?
Кстати, а SASFM - это ваш клон?
Судя по тому, как бурно вы ведёте дебаты в этой теме, думаю, я права в своих подозрениях...

[Stilet]

uses
Windows, jpeg, ...

jpeg нужно либо в начало либо в конец. Иначе не сработает. Перекрытие нужно. Надо только узнать в какой последовательности модули перекрываются.

[xxbesoxx]

Надо внимательнее читать советы опытных товарищей!

kropotkina-alice Да......... рассказать можно всё .... Но мне интересно докаЗАТЬ раз вы такой внимательныЙ

КрасавЕ`ц!

Вы парен ? А что на это форуме мужчины вставить фотография девушки как это понять ? вы маскируйте типа Девчата

А ваши надуманности в "коде" 2-хлетней давности лучше не демонстрировать, поверьте...

kropotkina-alice Вот вы меня удивляйте .... Вот вам пример БД Access там таблицу Solution есть поля Solution там из моего код Я магу хранить любой формат и отображать Image1 А вы меня уважаемы покажите как будете хранить и потом отображать DBImage эту картинки вот БД https://yadi.sk/d/nDHP9_91g3dHU

Кстати, а SASFM - это ваш клон?

kropotkina-alice Не понял ? что вы спрашивайте ? если про фейк я на него скриншоти тоже выложил , Но на это форуме удалили на другом есть

[kropotkina-alice]

Сообщение от Stilet

jpeg нужно либо в начало либо в конец. Иначе не сработает. Перекрытие нужно. Надо только узнать в какой последовательности модули перекрываются.

Никогда этим вопросом не заморачивалась.
И вначале uses делала объявление, и в конце - ни разу никаких затруднений не было...

[xxbesoxx]

Сообщение от kropotkina-alice

Никогда этим вопросом не заморачивалась.
И вначале uses делала объявление, и в конце - ни разу никаких затруднений не было...

не рассказывай сказку !!! и вы за это думайте что ВЫ внимательный ??? докажи и не ФЛУДИ в базе у меня есть формат JPEG

никаких затруднений не было

Ну я вас жду

[xxbesoxx]

Ладно , Сохранит JPEG все знаем и отображение выложу по подробно
1)
про uses Stilet вы прав да

2)

  type
    TGraphType = (gtBitmap, gtIcon, gtMetafile, gtJpeg);

3) Отображение в Image1

procedure TForm1.ADOQuery1AfterScroll(DataSet: TDataSet);
var
  Stream: TMemoryStream;
  Jpg: TJpegImage;
  GraphType: TGraphType;
begin
  Jpg := nil;
  Stream := nil;
  try
    Stream := TMemoryStream.Create;
    TBlobField(ADOQuery1.FieldByName('Solution')).SaveToStream(Stream);
    if Stream.Size > 0 then
    begin
      Stream.Position := 0;
      Stream.Read(GraphType, 1);
      case GraphType of
        gtBitmap:   Image1.Picture.Bitmap.LoadFromStream(Stream);
        gtIcon:     Image1.Picture.Icon.LoadFromStream(Stream);
        gtMetafile: Image1.Picture.Metafile.LoadFromStream(Stream);
        gtJpeg:
        begin
          Jpg := TJpegImage.Create;
          Jpg.LoadFromStream(Stream);
          Image1.Picture.Assign(Jpg);
        end
        else
          Image1.Picture.Assign(nil);  // Clear the image
      end;
    end
    else
      Image1.Picture.Assign(nil);
  except
    Image1.Picture.Assign(nil);
  end;
  jpg.Free;
  Stream.Free;

end;

end.

силка на проект https://yadi.sk/d/Mvj9Pbpkg3ko7

[SASFM]

Всем спасибо!!!

[xxbesoxx]

Пожалуйста , расти дальше