Buscar por:

Aprenda a salvar imagens em uma tabela paradox

Código

{No Database Desktop, crie uma tabela Paradox com um campo do tipo Binary (B). Crie um Alias no SQLExplore. Vá ao Delphi e crie uma nova aplicação, coloque no form um Table, um DataSource, um OpenDialog, um DBImage, um DBNavigator e um Botão.

Agora ligue o Table à tabela Paradox (criada anteriormente), conecte o DataSource à Table, ligue o DBImage ao DataSource e altere a propriedade DataField (conecte-a ao campo binario criado anteriormente), altere a propriedade DataSource do DBNavigator para DataSource1. Agora copie o código abaixo no evento OnClick do botão.}

procedure TForm1.Button1Click(Sender: TObject);

var

  Bmp: TBitmap;

begin

  if not OpenDialog1.Execute then

    Exit; 

  Bmp := TBitmap.Create;

  try

    Bmp.LoadFromFile(OpenDialog1.FileName); 

    Table1.Insert;

    Table1.FieldByName('Imagem').Assign(Bmp);

    Table1.Post; 

  finally

    Bmp.Free;

  end;

end;