How do I get the real file name with FileUploadButton?

[eduardosuruagy]

How do I get the real file name with FileUploadButton?

My file name is Image.jpg, but when I uploaded it with the FileUploadButton component I can't get its real name even using the AStream.FileName command. The UniFileUpload component shows me the actual file name after upload.

[Sherzod]

3 hours ago, eduardosuruagy said:

How do I get the real file name with FileUploadButton?

My file name is Image.jpg, but when I uploaded it with the FileUploadButton component I can't get its real name even using the AStream.FileName command. The UniFileUpload component shows me the actual file name after upload.

Hello,

At what point and for what purpose do you want to get it?

[eduardosuruagy]

3 hours ago, Sherzod said:

Olá,

Em que ponto e com que objetivo você deseja obtê-lo?

I want to show the user the original file name and not a unigui generated name.

[Sherzod]

14 hours ago, eduardosuruagy said:

I want to show the user the original file name and not a unigui generated name.

Which event are you using?

[eduardosuruagy]

1 hour ago, Sherzod said:

Qual evento você está usando?

procedure TFormCadRelatoriosSistema.UniFileUpload1Completed(Sender: TObject; AStream: TFileStream);
var DestName   : string;
    DestFolder : string;
begin
  DestFolder := UniServerModule.StartPath+'UploadFolder\';
  DestName   := DestFolder+ExtractFileName(AStream.FileName);

  if not DirectoryExists(DestFolder) then
    ForceDirectories(DestFolder);

  CopyFile(PChar(AStream.FileName), PChar(DestName), False);

  EDIT_NOME_ARQUIVO.Text := ExtractFileName(DestName);
end;
 

[Sherzod]

procedure TMainForm.UniFileUpload1Completed(Sender: TObject;
  AStream: TFileStream);
begin
  ShowMessage(UniFileUpload1.FileName);
end;

 

[benilton]

eu gostaria de quando pegar o arquivo para uploud renomear e guarda no diretório é possível?

como fazer.