Fórum Gravar Path de imagem. #404097
30/06/2011
0
Olá amigos do Delphi,
Estou precisando de uma ajuda de vocês,
estou desenvolvendo um programa que deve buscar fotos em um diretório no HD e gravar o caminho (path) em um campo da Table que vai estar alimentando um DBGrid. Eu não sei como gravar este caminho de forma que eu possa visualizar estas fotos posteriormente.
Vejam o início da minha procedure:
procedure T_imovel.BitBtn2Click(Sender: TObject);
var
Origem, Destino, caminho: string;
begin
caminho := 'C:\Fotos\' + qim.FieldByName('CODIGO').AsString;
if not DirectoryExists(caminho) then
CreateDir(caminho);
if OpenPictureDialog1.Execute then
begin
//Aqui pego o caminho inteiro inclusive com o nome do arquivo
origem := OpenPictureDialog1.FileName;
//Aqui pego somente o nome do arquivo com a extenção
Delete(Origem, 1, Length(ExtractFilePath(OpenPictureDialog1.FileName)));
Destino := caminho + '\' + origem;
CopyFile(PChar(Origem), PChar(Destino), False);
Tabimovel.Open;
Tabimovel.Edit;
Tabimovelcaminho.AsString:= Destino;
Tabimovel.Post;
end;
end;
Se puderem me ajudar desde já eu agradeço, Atenciosamente. Valdir Lima
var
Origem, Destino, caminho: string;
begin
caminho := 'C:\Fotos\' + qim.FieldByName('CODIGO').AsString;
if not DirectoryExists(caminho) then
CreateDir(caminho);
if OpenPictureDialog1.Execute then
begin
//Aqui pego o caminho inteiro inclusive com o nome do arquivo
origem := OpenPictureDialog1.FileName;
//Aqui pego somente o nome do arquivo com a extenção
Delete(Origem, 1, Length(ExtractFilePath(OpenPictureDialog1.FileName)));
Destino := caminho + '\' + origem;
CopyFile(PChar(Origem), PChar(Destino), False);
Tabimovel.Open;
Tabimovel.Edit;
Tabimovelcaminho.AsString:= Destino;
Tabimovel.Post;
end;
end;
Se puderem me ajudar desde já eu agradeço, Atenciosamente. Valdir Lima
Valdir Lima
Curtir tópico
+ 0
Responder
Posts
30/06/2011
Wilson Junior
Uma sugestão é você criar uma configuração de diretório padrão para salvar as imagens e sempre salvar somente o nome do arquivo.
E para visualizar as imagens, coloque uma lista dos arquivos em um SQL e utilize um TImage para visualizar os mesmos ao selecionar os registros do SQL.
Espero ter colaborado.
E para visualizar as imagens, coloque uma lista dos arquivos em um SQL e utilize um TImage para visualizar os mesmos ao selecionar os registros do SQL.
Espero ter colaborado.
Responder
Gostei + 0
30/06/2011
Valdir Lima
Olá Wilson,
conforme o código que eu postei, ele está criando um diretório e dentro do diretório uma pasta para cada imóvel, estas pastas deverão ser arquivadas várias imagens (fotos), eu preciso gravar o caminho (path) no campo devido da tabela que alimentará um DBGrid.
Se você puder me ajudar desde já eu agradeço.
Att.
Valdir Lima.
procedure T_imovel.BitBtn2Click(Sender: TObject);
var
Origem, Destino, caminho: string;
begin
caminho := 'C:\Fotos\' + qim.FieldByName('CODIGO').AsString;
if not DirectoryExists(caminho) then
CreateDir(caminho);
if OpenPictureDialog1.Execute then
begin
origem := OpenPictureDialog1.FileName;
Delete(Origem, 1, Length(ExtractFilePath(OpenPictureDialog1.FileName)));
Destino := caminho + '\' + origem;
CopyFile(PChar(Origem), PChar(Destino), False);
Tabimovel.Open;
Tabimovel.Edit;
Tabimovelcaminho.AsString:= Destino;
Tabimovel.Post;
end;
end;
var
Origem, Destino, caminho: string;
begin
caminho := 'C:\Fotos\' + qim.FieldByName('CODIGO').AsString;
if not DirectoryExists(caminho) then
CreateDir(caminho);
if OpenPictureDialog1.Execute then
begin
origem := OpenPictureDialog1.FileName;
Delete(Origem, 1, Length(ExtractFilePath(OpenPictureDialog1.FileName)));
Destino := caminho + '\' + origem;
CopyFile(PChar(Origem), PChar(Destino), False);
Tabimovel.Open;
Tabimovel.Edit;
Tabimovelcaminho.AsString:= Destino;
Tabimovel.Post;
end;
end;
Responder
Gostei + 0
09/05/2013
José
Este tópico esta sendo fechado por inatividade. Se necessário, sinalizar para que seja reaberto ou abrir um novo.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)