| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Добавление Jpeg в таблицу [D7, Paradox]

RomanH ©   (2006-03-15 17:48:00) 

День добрый мастера.Не могу сообразить почему файл с расширением jpeg не загружается в таблицу Paradox.
Тип поля Binary.А перед тем как сделать ApplyUpdates(0),я в DBImage.Picture помещаю имя файла с OpenDialog.

procedure TAppendDogovorForm.BitBtn3Click(Sender: TObject);
var B:TJpegImage;
begin

     if not OpenDialog1.Execute
     then exit;
     FName:=OpenDialog1.FileName;
     B:=TJpegImage.Create;
     try
        B.LoadFromFile(FName);
        DbImage1.Picture.Assign(B);
     except
         on EInOutError do
         begin
             Application.MessageBox('Îøèáêà äîñòóïà ê ôàéëó',
           'Îøèáêà',MB_ICONERROR+MB_OK);
           Exit;
         end;      
     end;

end;
Заренее благодарен.

---

Desdechado   (2006-03-17 12:31:00) [1]

лучше использовать простой TImage, в нем можно преобразовать с использованием модуля JPEG перед показом данные

---

RomanH   (2006-03-17 11:57:00) [2]

Здраствуйте мастера, как предложил Desdechado, это очень грамотно.
Но появляется ошибка при сохранении Field value out of lookup table range? Не могу понять почему ведь тип поля Binary, а размер первых байтов=240.И еще один вопрос DBImage будет ли показывать сохраненный jpg файл.

---

Desdechado   (2006-03-15 18:45:00) [3]

Query1.Sql.Text :=
  'INSERT INTO testblob ' +
  ' ( ' +
  '  fBlob' +
  ' )' +
  ' VALUES' +
  ' (' +
  ' :ParamBlobField' +
  ')';
Query1.ParamByName('ParamBlobField').DataType := ftBlob;
Query1.ParamByName('ParamBlobField').ParamType := ptInput;
Query1.ParamByName('ParamBlobField').LoadFromFile('MyFile',ftBlob);
Query1.ExecSql;

---

RomanH   (2006-03-15 18:05:00) [4]

Не получается даже DbImage1.Picture.Graphic.Assign(B);
Может дело в типе поля

---

Reindeer Moss Eater   (2006-03-15 17:55:00) [5]

Кроме того
DbImage1.Picture.Graphic.Assign(B);

---

Reindeer Moss Eater   (2006-03-15 17:52:00) [6]

TBlobField.LoadFromFile

except
        on EInOutError do
        begin
            Application.MessageBox('Îøèáêà äîñòóïà ê ôàéëó',
          'Îøèáêà',MB_ICONERROR+MB_OK);
          Exit;
        end;      
    end;

---

Reindeer Moss Eater   (2006-03-15 17:52:00) [7]

А что, кроме как EInOutError  других исключений не ожидается?

---

Наверх