Imagens em tabelas paradox com delphi7

valecovo · 8 de março de 2010

Olá

Sou principiante no Delphi e não tenho utilizado este forum com muita frequencia.

Gostaria de saber se é possivel arquivar imagens numa tabela Paradox, além de imagens do tipo BMP.

Estou a utilizar este código com imagens do tipo JPG, mas só está a resultar com imagens do tipo BMP, embora na seção "uses" inclua a unidade JPEG.

procedure TFormImagem.BbImagemClick(Sender: TObject);
begin
if DMAvarias.TbImagens.State in [DsInsert,DsEdit] then
begin
if OpenDialog.execute then
Imagem.Picture.LoadFromFile(OpenDialog.FileName);
end;
end;

procedure TFormImagem.BbOkClick(Sender: TObject);
begin
if DMAvarias.TbImagens.State in [DsInsert,DsEdit] then
begin
DMAvarias.TbImagens.Post;
UVariaveis.CodImagem:= DMAvarias.TbImagens.FieldByName('Ordem').AsInteger;
end;
FormImagem.ModalResult:= mrOk;
end;

Obrigado

valecovo · 10 de março de 2010

Resolvi a questão de outra maneira que não a que estava a pensar. Como só ainda tinha 3 imagens no ficheiro e o mesmo já tinha quase 2 Megas, resolvi gravar cada imagem num ficheiro, com o nome da ficha, numa pasta, e através do numero da ficha ir buscar a imagem e abri-la num form com a ajuda de um componente OpenDialog.

Pelo que tenho lido, as tabelas paradox só aceitam imagens em formato BMP ou JPG.

Aqui fica o código. Não sei se terá alguns erros de pricipiante, mas funciona.

procedure TFormRegisto.BbInImagemClick(Sender: TObject); 
VAR ficha, extensao, ficheiro, pass: string; 
begin 
if DMAvarias.DsAvarias.State in [dsEdit, dsBrowse] then 
begin 
extensao:= DBCFoto.Text; 
ficha:= DBEdit5.Text; 
if extensao<>'' then 
begin 
if length(ficha) = 1 then ficha:= '0000'+ficha 
else if length(ficha) = 2 then ficha:= '000'+ficha 
else if length(ficha) = 3 then ficha:= '00'+ficha 
else if length(ficha) = 4 then ficha:= '0'+ficha; 
ficheiro:= extensao+ficha+'.'+extensao; 
UVariaveis.caminho:= 'C:\Programas\Avarias\Fotos\'+ficheiro; 
Try 
if FileExists(UVariaveis.caminho) then 
begin 
if (extensao='JPG') or (extensao='BMP') then FormImagem.ShowModal; 
if extensao = 'PDF' then 
begin 
if DMAvarias.TbAplicacoes.Active = False then DMAvarias.TbAplicacoes.Active:= True; 
if DMAvarias.TbAplicacoes.Locate('Extensao','PDF',[loCaseInsensitive]) then 
begin 
Try 
pass:= DMAvarias.TbAplicacoes.fieldByname('Passe').AsString; 
executaracrobat(pass, UVariaveis.caminho); 
except 
showmessage('Caminho do executável de PDFs errado.') 
end; 
end 
else showmessage('Introduza no ficheiro o caminho do executavel dos PDFs.'); 
if DMAvarias.TbAplicacoes.Active = True then DMAvarias.TbAplicacoes.Active:= False; 
end; 
end 
else showmessage('Ficheiro não encontrado!'+#13+'Deve gravar ficheiro com o nome '+#13+ ficheiro); 
except 
showmessage('Erro ao carregar o ficheiro!'); 
end; 
end 
else showmessage('Não exite imagem para este registo. Primeiro deve inserir o tipo de foto.'); 
end 
else showmessage('Tabela em modo de inserção. Deve primeiro gravar os dados!'); 
end;