Fórum Delphi iniciante #531345
11/09/2015
0
Gente ja procurei e nao encontrei,codificaçao de apagar foto do dbimage,ja usei o destroy,mais com isso destroi eu axo q altomaticamente a funçao do componente,entao ele da um erro,se puderem me ajudar agradeço
Paulo
Curtir tópico
+ 0
Responder
Post mais votado
11/09/2015
USES JPEG
var IMG: TImage;
implementation
{$R *.dfm}
Criando a IMG em tempo de execução
begin
IMG := TImage.Create(self);
IMG.Parent := Form1;
IMG.AutoSize := True;
IMG.Align:=alClient;
IMG.Center:=true;
IMG.AutoSize:=true;
IF FILEEXISTE (DM.TABLE_PARAM.FIELBYNAME('CAMINHO_IMG').ASSTRING); THEN
BEGIN
IMG.Picture.LoadFromFile(DM.TABLE_PARAM.FIELBYNAME('CAMINHO_IMG').ASSTRING);
END
ELSE
BEGIN
ShowMessage('FALHA AO CARREGAR IMG >> '+DM.TABLE_PARAM.FIELBYNAME('CAMINHO_IMG').ASSTRING);
end;
APAGAR IMG
IMG.FREE;
Paulo, aguardo retorno.
var IMG: TImage;
implementation
{$R *.dfm}
Criando a IMG em tempo de execução
begin
IMG := TImage.Create(self);
IMG.Parent := Form1;
IMG.AutoSize := True;
IMG.Align:=alClient;
IMG.Center:=true;
IMG.AutoSize:=true;
IF FILEEXISTE (DM.TABLE_PARAM.FIELBYNAME('CAMINHO_IMG').ASSTRING); THEN
BEGIN
IMG.Picture.LoadFromFile(DM.TABLE_PARAM.FIELBYNAME('CAMINHO_IMG').ASSTRING);
END
ELSE
BEGIN
ShowMessage('FALHA AO CARREGAR IMG >> '+DM.TABLE_PARAM.FIELBYNAME('CAMINHO_IMG').ASSTRING);
end;
APAGAR IMG
IMG.FREE;
Paulo, aguardo retorno.
Raimundo Pereira
Responder
Gostei + 2
Mais Posts
05/10/2015
Paulo
vlw,me ajudou mt :)
Responder
Gostei + 0
06/10/2015
Joel Rodrigues
Opa, por favor nos próximos tópicos utilize um título mais sugestivo, pois facilita a identificação por parte de quem está navegando no fórum.
Responder
Gostei + 2
Clique aqui para fazer login e interagir na Comunidade :)