Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=198851&view=findpost&p=1662764 Mon, 13 Aug 2007 17:29:13 +0000 Загрузка изображения из БД "Bitmap is not valid" https://forum.sources.ru/index.php?showtopic=198851&view=findpost&p=1662764 Цитата olga90 @
я уже писала - на onCreate формы

ну и что ты тогда хочешь от этого кода?
у тебя получается что картинка загружается из той позиции, на которой у тебя находится курсор...
а после перемещения на следующую позиции у тебя не происходит перезагрузки изображения...
это не DBImage которая загружает картинку из той позиции на которой находится курсор... тут надо всё ручками делать :)]]> dron-s Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=198851&view=findpost&p=1662722 Mon, 13 Aug 2007 16:28:27 +0000 Загрузка изображения из БД "Bitmap is not valid" https://forum.sources.ru/index.php?showtopic=198851&view=findpost&p=1662722 Цитата dron-s @
olga90
а ты куда прикрутила свой код вот этот
      Image1.Picture.Bitmap.FreeImage;
      LoadPictureFromBLOB(image1.Picture, AdoTable1.FieldByName('SMALL_IMAGE') as TBLOBField);


я уже писала - на onCreate формы]]> olga90 Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=198851&view=findpost&p=1662607 Mon, 13 Aug 2007 14:32:21 +0000 Загрузка изображения из БД "Bitmap is not valid" https://forum.sources.ru/index.php?showtopic=198851&view=findpost&p=1662607 olga90
а ты куда прикрутила свой код вот этот
      Image1.Picture.Bitmap.FreeImage;
      LoadPictureFromBLOB(image1.Picture, AdoTable1.FieldByName('SMALL_IMAGE') as TBLOBField);

на какое событие?]]> dron-s Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=198851&view=findpost&p=1662599 Mon, 13 Aug 2007 14:28:46 +0000 Загрузка изображения из БД "Bitmap is not valid" https://forum.sources.ru/index.php?showtopic=198851&view=findpost&p=1662599 http://www.delphikingdom.com/asp/answer.asp?IDAnswer=15873
(ну, и по первой ссылке оттуда тоже сходи...)]]> volvo877 Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=198851&view=findpost&p=1662488 Mon, 13 Aug 2007 13:28:33 +0000 Загрузка изображения из БД "Bitmap is not valid" https://forum.sources.ru/index.php?showtopic=198851&view=findpost&p=1662488 Я обрадовалась но не тут-то было
При компиляции приложения выскакивает опять "Bitmap is not valid"

этот компонент недоделанный что-ли :blink:
или я не то делаю ?]]> olga90 Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=198851&view=findpost&p=1662474 Mon, 13 Aug 2007 13:22:28 +0000 Загрузка изображения из БД "Bitmap is not valid" https://forum.sources.ru/index.php?showtopic=198851&view=findpost&p=1662474
значение ColCount = 1,значение RowCount = 5
на первой гладкой ячейки этого компонента есть DBLabel, DBMemo и обычный Image

и при отображении изображений из поля они во всех Имейджах одинаковые :( - ведь это на DB_компонент
     function GetStreamImgType(Stream: TStream): TGraphicClass;
    var
      StreamPos: int64;
      ImgSign: string;
    begin
      StreamPos := Stream.Position;
      try
        //BMP
        Result := Graphics.TBitmap;
     
        //JPEG
        SetLength(ImgSign, 4);
        Stream.Seek(6, soFromCurrent);
        Stream.Read(ImgSign[1],4);
        if (UpperCase(ImgSign) = 'JFIF') or (UpperCase(ImgSign) = 'EXIF') then
        begin
          Result := Jpeg.TJPEGImage;
          Exit;
        end;
     
        //WMF
        Stream.Position := StreamPos;
        SetLength(ImgSign, 4);
        Stream.Read(ImgSign[1],4);
        if ImgSign = #$D7#$CD#$C6#A then //see WMFKey
        begin
          Result := Graphics.TMetafile;
          Exit;
        end;
     
        //PNG
        Stream.Position := StreamPos;
        SetLength(ImgSign, 3);
        Stream.Seek(1, soFromCurrent);
        Stream.Read(ImgSign[1],3);
        if (UpperCase(ImgSign) = 'PNG') then
        begin
          Result := PNGImage.TPNGImage;
          Exit;
        end;
     
      finally
        Stream.Position := StreamPos;
      end;
    end;
     
    ///
    procedure LoadProperImage(Stream: TStream; Picture: TPicture);
    var
      Img: TGraphic;
      StreamPos: int64;
    begin
      StreamPos := Stream.Position;
      Img := GetStreamImgType(Stream).Create;
      try
        Stream.Position := StreamPos;
        Img.LoadFromStream(Stream);
     
        Wid := img.Width;
        hei := img.Height;
     
        Picture.Graphic := Img;
      finally
        Img.Free;
      end;
    end;
     
    function LoadPictureFromBLOB(Picture: TPicture; Field: TBlobField): boolean;
    var
      Stream: TStream;
    begin
      Result := False;
      if not Field.isNULL then
      begin
        Stream := TMemoryStream.Create;
        try
          Field.SaveToStream(Stream);
          Stream.Position := 0;
          LoadProperImage(Stream, Picture);
          Result := True;
          finally
          Stream.Free;
        end;
      end;
    end;


и
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      Image1.Picture.Bitmap.FreeImage;
      LoadPictureFromBLOB(image1.Picture, AdoTable1.FieldByName('SMALL_IMAGE') as TBLOBField);
    end;


получается что во всех имейджах одинаковые картинки

как быть тогда]]> olga90 Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=198851&view=findpost&p=1661745 Mon, 13 Aug 2007 07:13:53 +0000 Загрузка изображения из БД "Bitmap is not valid" https://forum.sources.ru/index.php?showtopic=198851&view=findpost&p=1661745 Сан Иваныч Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=198851&view=findpost&p=1661719 Mon, 13 Aug 2007 06:59:56 +0000 Загрузка изображения из БД "Bitmap is not valid" https://forum.sources.ru/index.php?showtopic=198851&view=findpost&p=1661719 dron-s Delphi: Базы данных https://forum.sources.ru/index.php?showtopic=198851&view=findpost&p=1661544 Sun, 12 Aug 2007 19:57:05 +0000 Загрузка изображения из БД "Bitmap is not valid" https://forum.sources.ru/index.php?showtopic=198851&view=findpost&p=1661544 в этих полях я буду хранить изображения разного размера

так вот изображения я помещать прямо в аксесе через CTRL+V
при этом если я вставляю jpg, то в записи появляется слово "Плакат"
если вставляю bmp, то в записи появляется "Точечный ричунок"

и теперь хочу отобразить картинку через DBImage
выставляю нужный датасорс и выставляю поле картинки (DataField)

запускаю и выкатывается ошибка "Bitmap is not valid"

на строчке
    procedure InvalidGraphic(Str: PResStringRec);
    begin
      raise EInvalidGraphic.CreateRes(Str);
    end;

модуля Graphics

что разве DBImage не поддерживает отображение картинок форматов jpg и bmp?
Или что?]]> olga90 Delphi: Базы данных