UniFileUploadButton

[VohminV]

procedure TMenu.inbtCompleted(Sender: TObject; AStream: TFileStream);
var
DestName : string;
DestFolder : string;
i:integer;
begin
for I := 0 to inbt.MaxFiles-1 do begin
DestFolder:=UniServerModule.StartPath+'UploadFolder\'; // It's important to keep in touch with exe Next, create a new one UploadFolder Folder
DestName:=DestFolder+ExtractFileName(inbt.FileName);
CopyFile(PChar(AStream.FileName), PChar(DestName), False);
end;
ShowMessage('File: '+inbt.FileName+' Uploaded to folder: '+DestFolder);

end;

Сохраняется только один файл

[Sherzod]

Используете неправильное событие.

\FMSoft\Framework\uniGUI\Demos\Desktop\FileUpload - Multiple

OnMultiCompleted

[VohminV]

4 minutes ago, Sherzod said:

Используете неправильное событие.

\FMSoft\Framework\uniGUI\Demos\Desktop\FileUpload - Multiple

OnMultiCompleted

AStream как тогда получить ?

[Sherzod]

Пример смотрели?

[VohminV]

1 minute ago, Sherzod said:

Пример смотрели?

Да спасибо, добавил процедуру .AddFile(const AStream: TFileStream;  FileName:string) и в ней сделал сохранение;