só salva quando a imagem não esta junto!
É seguinte estou trabalhando com Firebird e os seguintes componentes ibx(ibdatabase, ibtransaction e ibdataset). Estou tentando salvar imagens no campo blob, mais não stou conseguindo!
Percebi que quando salvo sem foto, o registro é gravado normamente.Porém quando coloco a foto não consigo salvar nada!
Meu servidor é firebird 1.5
//o código para abrir a foto é o seguinte:
procedure Tprodutos.DBFOTODblClick(Sender: TObject);
begin
inherited;
IF ABREFOTO.Execute THEN
DBFOTO.Picture.LoadFromFile(ABREFOTO.FileName);
end;
end.
//O código para inserir é o seguinte:
begin
dm.ibdataset.append;
end;
//O código para salvar é o seguinte:
begin
dm.ibdataset.post;
dm.ibdataset.applyupdates;
dm.ibtransaction.commit;
end;
OBS: Estou abrindo apenas *.BMP, mas continua dando erro!
O que posso fazer! me ajudem!
Percebi que quando salvo sem foto, o registro é gravado normamente.Porém quando coloco a foto não consigo salvar nada!
Meu servidor é firebird 1.5
//o código para abrir a foto é o seguinte:
procedure Tprodutos.DBFOTODblClick(Sender: TObject);
begin
inherited;
IF ABREFOTO.Execute THEN
DBFOTO.Picture.LoadFromFile(ABREFOTO.FileName);
end;
end.
//O código para inserir é o seguinte:
begin
dm.ibdataset.append;
end;
//O código para salvar é o seguinte:
begin
dm.ibdataset.post;
dm.ibdataset.applyupdates;
dm.ibtransaction.commit;
end;
OBS: Estou abrindo apenas *.BMP, mas continua dando erro!
O que posso fazer! me ajudem!
Valdiney
Curtidas 0
Respostas
Afarias
27/12/2003
Engraçado, fiz até um teste e funcionou perfeitamente.
(só não use o ApplyUpdates, não é necessário a não ser q esteja usando atualizações em cache (CachedUpdates=True)
Está gerando algum erro?? Qual??
T+
(só não use o ApplyUpdates, não é necessário a não ser q esteja usando atualizações em cache (CachedUpdates=True)
Está gerando algum erro?? Qual??
T+
GOSTEI 0