{Delphi上傳附件文件,並自定義目的文件名,必須對源文件有寫權限 Use Classes,Dialogs,SysUtils}
procedure Pro_File_UpLoad;
var
sFileName, dFileName, FILENAME: string; //源文件名,目地文件名,臨時文件名
TempStream: TMemoryStream;
begin
if opendialog1.Execute then sFileName := opendialog1.FileName;
if sFileName = '' then EXIT;
if Renamefile(ExtractFileName(sFileName), 'Newname' + Extractfileext(sFileName)) then
begin
FILENAME := 'Newname' + Extractfileext(sFileName);
dFileName := 'Dpath' + FILENAME;
sFileName := Extractfilepath(sFileName) + FILENAME;
end;
if (FileExists(dFileName) = TRUE) then
begin
if MESSAGEDLG('已經存在此文件名,確定覆蓋嗎?YES:覆蓋,NO:退出', MTCONFIRMATION, [MBYES, MBNO], 0) = MRNO then Exit;
DeleteFile(dFileName);
TempStream := Tmemorystream.Create;
TempStream.LoadFromFile(sFileName);
TempStream.SaveToFile(dFileName);
end;
if (FileExists(dFileName) = FALSE) then
begin
TempStream := Tmemorystream.Create;
TempStream.LoadFromFile(sFileName);
TempStream.SaveToFile(dFileName);
end;
SHOWMESSAGE('上傳附件:( ' + FILENAME + ' )成功!');
end;
Delphi上傳附件文件
最新推荐文章于 2024-04-28 09:01:03 发布