[英]Upload a file to web server Delphi + php
我正在开发一个程序,我需要通过 http 将“log.txt”上传到网络服务器。
我已经搜索并找到了这个:-
德尔福 XE:
procedure TForm1.Button1Click(Sender: TObject);
begin
idhttp1.Post('http://127.0.0.1/GET2.php', 'C:\Users\Someone\Desktop\log.txt')
end;
php :-
<?php
$uploaddir = "uploads/";
$uploadfile = $uploaddir . basename( $_FILES['file']['name']);
if(move_uploaded_file($_FILES['file']['tmp_name'], $uploadfile))
{
echo "The file has been uploaded successfully";
}
else
{
echo "There was an error uploading the file";
}
?>
但没有上传文件
感谢您的帮助
阅读 PHP 文档。
您的 PHP 代码正在使用$_FILES
,它期望客户端以 MIME multipart/form-data
格式发布 HTML webform:
PHP 能够从任何符合RFC-1867 的浏览器接收文件上传。
但是,这种格式并不是您的应用程序实际发布的格式。 它只是按原样发布原始文件内容,没有 MIME 元数据来描述文件。 这就是您的 PHP 代码不起作用的原因。
要使用TIdHTTP.Post()
发布multipart/form-data
HTML webform,您必须使用TIdMultipartFormDataStream
类,例如:
uses
..., IdHTTP, IdMultipartFormDataStream;
procedure TForm1.Button1Click(Sender: TObject);
var
PostData: TIdMultipartFormDataStream;
begin
PostData := TIdMultipartFormDataStream.Create;
try
PostData.AddFile('file', 'C:\Users\Someone\Desktop\log.txt');
idhttp1.Post('http://127.0.0.1/GET2.php', PostData)
finally
PostData.Free;
end;
end;
或者,PHP 也支持文件上传的 HTTP PUT
请求:
procedure TForm1.Button1Click(Sender: TObject);
var
FS: TFileStream;
begin
FS := TFileStream.Create('C:\Users\Someone\Desktop\log.txt', fmOpenRead or fmShareDenyWrite);
try
idhttp1.Put('http://127.0.0.1/log.txt', FS);
finally
FS.Free;
end;
end;
<?php
/* PUT data comes in on the stdin stream */
$putdata = fopen("php://input", "r");
/* Open a file for writing */
$fp = fopen("log.txt", "w");
/* Read the data 1 KB at a time
and write to the file */
while ($data = fread($putdata, 1024))
fwrite($fp, $data);
/* Close the streams */
fclose($fp);
fclose($putdata);
?>
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.