Pegar 1 JPG do Drive C: e jogar em 1 campo Blob (HELP!!!)
Qual seria o procedimento para mim colocar 1 imagem que está em arquivo no drive C:\logo.jpg e coloca-la em um campo tipo Blob que eu já criei no interbase?
É apenas 1 campo e 1 registro. Mas eu não sei como coloco a imagem nele. Algo do tipo abrir uma caixa de diálogo e procurar... Mas eu não sei. :(
Tabela ---- Empresa
Campo --- LogoTipo --- Blob
Muito Obrigado,
Claudio. :)
É apenas 1 campo e 1 registro. Mas eu não sei como coloco a imagem nele. Algo do tipo abrir uma caixa de diálogo e procurar... Mas eu não sei. :(
Tabela ---- Empresa
Campo --- LogoTipo --- Blob
Muito Obrigado,
Claudio. :)
Claudio Sam
Curtidas 0
Respostas
Afarias
07/11/2003
Um exemplo:::
var
Stm: TStream;
begin
if OpenPictureDialog1.Execute then
begin
Stm := TFileStream.Create(OpenPictureDialog1.FileName);
try
Stm.Position := 0;
with IBSQL1 do
try
SQL.Text := ´INSERT INTO TB_FIGURA (IMAGEM) VALUES (:IMAGEM)´;
Transaction.StartTransaction;
ParamByName(´IMAGEM´).LoadFromStream(Stm);
ExecQuery;
finally
Transaction.Commit;
end;
finally
Stm.Free;
end;
end;
end;
T+
var
Stm: TStream;
begin
if OpenPictureDialog1.Execute then
begin
Stm := TFileStream.Create(OpenPictureDialog1.FileName);
try
Stm.Position := 0;
with IBSQL1 do
try
SQL.Text := ´INSERT INTO TB_FIGURA (IMAGEM) VALUES (:IMAGEM)´;
Transaction.StartTransaction;
ParamByName(´IMAGEM´).LoadFromStream(Stm);
ExecQuery;
finally
Transaction.Commit;
end;
finally
Stm.Free;
end;
end;
end;
T+
GOSTEI 0