guardar imagen en campo blob

[ecfisa]

Hola de nuevo.

Se me escapó, que tal vez tengas otros tipos que jpg...

Proba de esta forma:

Código Delphi [-]
...
uses jpeg;

procedure TForm1.Button1Click(Sender: TObject);
var
  Pic : TPicture;
begin
  if OpenPictureDialog1.Execute then
  begin
    Pic := TPicture.Create;
    try
      Pic.LoadFromFile(OpenPictureDialog1.FileName);
      DAtaSet.Edit;
      DataSet.FieldByName('CAMPO_PBLOB').Assign(Pic);
     finally
      Pic.Free;
    end;
  end;
end;

Saludos.