ActiveDelphi

angelors · Enviada: Sex Jan 26, 2007 12:00 pm Assunto: Salvar Jpg no SQL 2000 x Delphi 7

Feras,
eu ja tentei algumas rotinas e nada, o campo bdimage fica em branco ja declarei a biblioteca (JPEG) na uses na unit e nada.

vejam abaixo a rotina q criei;

procedure TF_front.BitBtn7Click(Sender: TObject);
VAR
FOTO:STRING;
begin

if OpenPictureDialog1.Execute then
FOTO:=openpicturedialog1.FileName;
if (dados.T_front.State=dsedit) or (dados.T_front.State=dsinsert)then

begin
dbimage2.Picture.LoadFromFile(FOTO);
showmessage('Imagem Carregada com Sucesso!');
end;

se alguem poder me ajudar ficarei muito grato.
espero também ajudar quem precisa! excluir