Estou tentando trazer uma imagem, mas tá dando erro!!!
Estou tentando fazer essa Insersão de Imagem mas tá dando erro...
Coloquei um botão / OpenPictureDialog / IBSQL no formulário.
Quando clico no botão dá o erro-> [Cannot Open File]
Que estou fazendo de errado? :roll:
Agradeço a atenção :)
Coloquei um botão / OpenPictureDialog / IBSQL no formulário.
Quando clico no botão dá o erro-> [Cannot Open File]
Que estou fazendo de errado? :roll:
procedure TfrmLogoTipo.LocalizarClick(Sender: TObject);
var
Stm: TStream;
begin
Stm := TFileStream.Create(OpenPictureDialog1.FileName, fmOpenRead);
try
Stm.Position := 0;
IBSQL_logoTipo.SQL.Text := ´INSERT INTO CLINICA (logoTipo) VALUES (:logoTipo)´;
IBSQL_logoTipo.ParamByName(´logoTipo´).LoadFromStream(Stm);
IBSQL_logoTipo.ExecQuery;
finally
Stm.Free;
end;
dmDados.Transacao.CommitRetaining;
end;Agradeço a atenção :)
Paulo Silva
Curtidas 0
Mais Respostas
Afarias
11/11/2003
de cara, pra mim tá faltando executar o OpenPictureDialog...
if OpenPictureDialog1.Execute then
{o resto do código}
T+
if OpenPictureDialog1.Execute then
{o resto do código}
T+
GOSTEI 0
Paulo Silva
11/11/2003
Era isso mesmo... :/
Obrigado.
Obrigado.
GOSTEI 0