php向delphi11 上传图片
时间: 2023-07-26 14:23:25 浏览: 160
php上传图片
您好,要实现 PHP 向 Delphi 11 上传图片,可以参考以下步骤:
1. 在 Delphi 11 中创建一个可以接收图片上传的接口,可以使用 Indy 或 Synapse 等网络库来实现。
2. 在 PHP 中,使用 CURL 或者 file_put_contents 等函数将图片上传到 Delphi 11 的接口上。
3. 在 Delphi 11 的接口中,使用 TIdHTTP 或者 TIdTCPServer 等组件接收图片上传请求,并将上传的图片保存到指定的位置。
4. 在 Delphi 11 中,使用 TImage 组件或者其它控件来显示上传的图片。
下面是一个简单的示例:
Delphi 11 接收图片上传的代码:
```delphi
procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
ImageStream: TMemoryStream;
FileName: string;
begin
ImageStream := TMemoryStream.Create;
try
FileName := ExtractFilePath(ParamStr(0)) + 'upload\' + AContext.Connection.Socket.Binding.PeerIP + '.jpg';
AContext.Connection.IOHandler.ReadStream(ImageStream);
ImageStream.Position := 0;
ImageStream.SaveToFile(FileName);
finally
ImageStream.Free;
end;
end;
```
PHP 上传图片的代码:
```php
<?php
$ch = curl_init();
curl_setopt($ch, CURLOPT_URL, 'http://localhost:8080');
curl_setopt($ch, CURLOPT_POST, 1);
curl_setopt($ch, CURLOPT_POSTFIELDS, array('file' => '@' . '/path/to/image.jpg'));
curl_exec($ch);
curl_close($ch);
?>
```
希望这个简单的示例能够帮助到您。
阅读全文