Gravação de fotos no interbase.....
antes de reformular o sistema apontava os arquivos de foto pelo caminho, depois passei a gravar direto no bd, criando um campo blob...
agora preciso gravar essas fotos antigas no bd, fiz a rotina e ateh aih td bem, nenhum erro de sintaxe, porem qdo chega em um registro q ainda nao tem a foto no campo blob, no applyupdates dah o seguinte erro:
Table Unknown + (nome da tabela)
o q pode ser isso?
estou usando a seguinte rotina:
with Tabela do
begin
if (State in [dsInactive]) then
Open;
if not (State in [dsInsert, dsEdit]) then
Edit;
FileStream:=TFileStream.Create(Arquivo, fmOpenRead or fmShareDenyWrite);
(Tabela.FieldByName(´Foto´) as TBlobField).LoadFromStream(FileStream);
try
Post;
finally
FileStream.Free;
end;
end;
obrigada,
K-ROL
agora preciso gravar essas fotos antigas no bd, fiz a rotina e ateh aih td bem, nenhum erro de sintaxe, porem qdo chega em um registro q ainda nao tem a foto no campo blob, no applyupdates dah o seguinte erro:
Table Unknown + (nome da tabela)
o q pode ser isso?
estou usando a seguinte rotina:
with Tabela do
begin
if (State in [dsInactive]) then
Open;
if not (State in [dsInsert, dsEdit]) then
Edit;
FileStream:=TFileStream.Create(Arquivo, fmOpenRead or fmShareDenyWrite);
(Tabela.FieldByName(´Foto´) as TBlobField).LoadFromStream(FileStream);
try
Post;
finally
FileStream.Free;
end;
end;
obrigada,
K-ROL
K-rol
Curtidas 0
Respostas
Anonymous
24/02/2003
ola, deu certo a dica anteriior??? 8)
GOSTEI 0
K-rol
24/02/2003
qual dica?
GOSTEI 0
Anonymous
24/02/2003
var
BMP : TBitmap;
begin
BMP := TBitmap.Create;
try
BMP.LoadFromFile( Arquivo );
if not ( Table1.State in [ dsEdit, dsInsert ] ) then
Table1.Edit;
Table1.FieldByName( ´Foto´ ).Assign( BMP )
finally
BMP.Free;
end;
end;
BMP : TBitmap;
begin
BMP := TBitmap.Create;
try
BMP.LoadFromFile( Arquivo );
if not ( Table1.State in [ dsEdit, dsInsert ] ) then
Table1.Edit;
Table1.FieldByName( ´Foto´ ).Assign( BMP )
finally
BMP.Free;
end;
end;
GOSTEI 0