post data with http

[merouane]

بارك الله فيك  لم اجرب لان الوحدة  TFPHttpClient غير متوفرة عندي على الدلفي   ثانيا  الرد
{"success":true,"key":"LJ07q1","link":"https://file.io/LJ07q1","expiry":"14 days"}
موجود في الصفحة بدون رفع اي شيء لذا لا اظن اننا نستطيع اعتماده لمعرفة نجاح الرفع

لو تجرب بالفري باسكال على الموقع اعلاه بالاعتماد على هذه الوحدة  اكون شاكر جدا

لا أظن أنه موجود في الصفحة لأنه يحتوي على رابط الملف على السرفر (بالتجربة)، وهو الرد المنتظر حسب شرح API على الموقع.

________________________________________

بالنسبة للرابط الأول جرب (https://up.uploadfiles.io/upload) بدلا من (https://uploadfiles.io)

بـ Lazarus التجربة ناجحة (متأكد)

PHP كود :

program project1;

uses
  Classes, fphttpclient;

var
  Respo: TStringStream;
  S: string;

begin
  with TFPHttpClient.Create(nil) do
    try
      Respo := TStringStream.Create('');
      SimpleFileFormPost('https://up.uploadfiles.io/upload', 'file', 'File.txt', Respo);
      s := Respo.DataString;
      writeln(s);
      Respo.Destroy;
    finally
      Free;
    end;
end. 


الرد

كود :

{"status":true,"id":2866885,"url":"https:\/\/ufile.io\/na1ud","destination":"https:\/\/uploadfiles.io\/na1ud","name":"File.txt","filename":"na1ud-file.txt","slug":"na1ud","size":"1.5 KB","type":"doc","expiry":"4 Weeks","session_id":"7acf4c3b01ab66cd93704e369685915276365ab8","timing":"1539186107-1539186107"}

---

بالنسبة لموقع https://up.top4top.net
بدلفي طوكيو تجربة ناجحة (متأكد)

PHP كود :

uses
      ...,  IdMultipartFormData, IdHTTP, IdSSLOpenSSL;

procedure TForm1.Button1Click(Sender: TObject);
Var
  IdHTTP1: TIdHTTP;
  Src: string;
  LHandler: TIdSSLIOHandlerSocketOpenSSL;
  lParam: TIdMultiPartFormDataStream;
begin
  if OpenDialog1.Execute then
    try
      IdHTTP1 := TIdHTTP.Create(nil);
      try
        LHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
        try
          lParam := TIdMultiPartFormDataStream.Create;

          lParam.AddFile('file_1_', OpenDialog1.FileName);
          lParam.AddFormField('submitr', '[ رفع الملفات ]');
          IdHTTP1.IOHandler := LHandler;

          Src := IdHTTP1.post('https://up.top4top.net', lParam);
          Memo1.Text := Src;
        finally
          lParam.Free;
          LHandler.Free;
        end;
      finally
        IdHTTP1.Free;
      end;
    except
      on E: Exception do
        Writeln(E.ClassName, ': ', E.Message);
    end;
end; 


النتيجة ملف HTML مما يحتويه (ابتداء من السطر 92)
-----------------------------------------------------------------------------------------------------------------------------------
<!-- START  FOR INFORMATION -->
<div class="alert alert-warning" role="alert">
<ul class="index_info">
<li>تعليمات :
<span> تم تحميل الصورة بنجاح<br/><div class="thumb_div_tag"><a onclick="window.open(this.href,'_blank');return false;" href="https://d.top4top.net/p_1013j4qad1.jpg"><img src="https://d.top4top.net/s_1013j4qad1.jpg" alt="" class="thumb_img_tag" /></a></div><div class="clr"></div><table width="100%"><tr><td style="vertical-align: middle;"><div class="inputbody"><p class="btitle">رابط المصغرة</p><input readonly="readonly" class="all_boxes" onclick="this.select();" type="text" value="" /></div><div class="clr"></div><div class="inputbody"><p class="btitle">رابط للمنتديات</p><input readonly="readonly" class="all_boxes" onclick="this.select();" type="text" value="" /></div><div class="clr"></div><div class="inputbody"><p class="btitle">رابط الصورة المباشر</p><input readonly="readonly" class="all_boxes" onclick="this.select();" type="text" value="https://d.top4top.net/p_1013j4qad1.jpg" /></div><div class="clr"></div><div class="inputbody"><p class="btitle">رابط الحذف</p><input readonly="readonly" class="all_boxes" onclick="this.select();" type="text" value="https://up.top4top.net/delc1d0c4ffd9c7edeeb51e0ed84ef5465d.html" /></div><div class="clr"></div><br /><td width="177px" style="vertical-align:middle;"><div class="qr_img"><img src="qrcoder.php?qr=https://d.top4top.net/p_1013j4qad1.jpg" width="175" height="175" title="الرابط المباشر للمسح عن طريق الجوال" /></div></td></tr></table> </span>
</li>
</ul>
</div>
<div class="clr"></div>
<!-- END  FOR INFORMATION -->
-----------------------------------------------------------------------------------------------------------------------------------