Gravar Path de imagem.
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
Curtidas 0
Respostas
Wilson Junior
30/06/2011
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.
GOSTEI 0
Valdir Lima
30/06/2011
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;
GOSTEI 0
José
30/06/2011
Este tópico esta sendo fechado por inatividade. Se necessário, sinalizar para que seja reaberto ou abrir um novo.
GOSTEI 0