Como gravar o caminho (path) da imagem.

[Limas]

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 e nem a forma que eu possa visualizar estas fotos posteriormente em um TImage.

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

[Ace Stryker™]

Para Pegar a path de qualquer arquivo voce coloca:

ExtractFilePath('Arquivo');

e para colocar em uma TImage voce utiliza este codigo aqui

image1.Picture.LoadFromFile('Local Da Imagem');

Espero que tenha ajudado

[jaumDoDelphi]

Ola Limas beleza!

no meu caso eu fiz um exemplo pareceido ano passado com

Access para salvar em determido local renomeando o arquivo para o codigo do item!

var
  Form1: TForm1;
  exeDir, fname : String;

implementation

uses Unit2, show, Unit3;

{$R *.dfm}

{troca as imagens ao navegar no banco}
procedure TForm1.ADOTable1AfterScroll(DataSet: TDataSet);
begin
      if Form1.dbEdit4.text = '' then
        begin
          Form1.Image1.Picture.Free;
          Form1.lblName.Caption := 'Sem Imagem';
        end
     Else
        Begin
          Form1.Image1.Picture.LoadFromFile(Form1.dbEdit4.Text);
          Form1.lblName.Caption := '';
        End;
end;

{seleciona imagem e ele grava no local do servidor no caso é local}
procedure TForm1.btnGETClick(Sender: TObject);
var
Dados: TSHFileOpStruct;
begin
if OpenPictureDialog1.Execute then
  begin
    FillChar(Dados,SizeOf(Dados), 0);
    with Dados do
      begin
      wFunc := FO_COPY;
      pFrom := PChar(OpenPictureDialog1.FileName);
      pTo := PChar(exeDir+'JPG\');
      fFlags:= FOF_ALLOWUNDO;
      end;
    SHFileOperation(Dados);
    fname := ExtractFilename(OpenPictureDialog1.FileName);
    Label1.Caption :=  fname;
    RenameFile(exeDir+'JPG\'+fname,exeDir+'JPG\'+dbEdit1.Text+'.jpg');
    Image1.Picture.LoadFromFile(exeDir+'JPG\'+dbEdit1.Text+'.jpg');
    dbEdit4.Text := 'JPG\'+dbEdit1.Text+'.jpg';
  end;
end;

dai é só alterar algumas coisas como destino das fotos etc...

um abraço!