Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TForm2.Button1Click(Sender: TObject);
   var
 url, res, filename: string;
 sl: TStringList;
 stream: TIdMultiPartFormDataStream;
begin
  stream := TIdMultiPartFormDataStream.create();
 filename := 'C:\Users\invoc\Desktop\fr.png';
 http.CustomHeaders['ContentType'] := 'multipart/form-data';
 stream.AddFile('file_1_', filename);
 stream.AddFormField('submitr', '[ رفع الملفات ]');
url := 'https://up.top4top.net/index.php';
 res := http.post(url, stream).ContentAsString(TEncoding.UTF8);
if res.Contains('رابط الصورة المباشر') then
 begin
   ShowMessage('upload succssed');
 end
 else
 begin
    ShowMessage('Error');
 end;
 stream.Free;
end;