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; |
Partager