Скачать: CL | DM;

Добавление Jpeg в таблицу   Найти похожие ветки 

← →
RomanH ©   (2006-03-15 17:48) [0]

День добрый мастера.Не могу сообразить почему файл с расширением 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;
Заренее благодарен.

---

← →
Reindeer Moss Eater ©   (2006-03-15 17:52) [1]

TBlobField.LoadFromFile

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

---

← →
Reindeer Moss Eater ©   (2006-03-15 17:52) [2]

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

---

← →
Reindeer Moss Eater ©   (2006-03-15 17:55) [3]

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

---

← →
RomanH ©   (2006-03-15 18:05) [4]

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

---

← →
Desdechado ©   (2006-03-15 18:45) [5]

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-17 11:57) [6]

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

---

← →
Desdechado ©   (2006-03-17 12:31) [7]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c