(17-10-2018, 08:18 PM)Agmcz كتب : هكذا يعمل بنجاح

PHP كود :

uses
 System.Net.HttpClient,
 System.Net.Mime;

procedure TForm1.Button1Click(Sender: TObject);
var
 HTTPClient: THTTPClient;
 Param: TMultipartFormData;
begin
 if OpenDialog1.Execute then
 begin
   HTTPClient := THTTPClient.Create;
   Param := TMultipartFormData.Create;
   try
     Param.AddFile('file_1_', OpenDialog1.FileName);
     Param.AddField('submitr', '[ رفع الملفات ]');
     Memo1.Text := HTTPClient.Post('https://up.top4top.net/index.php', Param).ContentAsString;
   finally
     Param.Free;
     HTTPClient.Free;
   end;
 end;
end;