Добавление 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;

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

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

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