خلل في كود رفع tnethttpclient

[invocker]

السلام عليكم

استخدمت الكود اسفله في رفع ملف ولم ينجح عن طريق استخدام tnethttpclient  اما عن طريق idhttp فالرفع تمام

السؤال اين الخلل ؟

في الحقيقة حاولت معرفة السبب والتجربة عدة مرات وتبين لي * لا اعلم ان كان هو السبب الحقيقي * ان اضافة الملف عن طريق idmultipartformdata غير متوافقة مع tnethttpclient لذا حاولت قراءة الملف على شكل سترينغ وارساله عن طريق استخدام tstringlist  لكن لا فائدة ربما  الخلل في طريقة قراءة الملف ربما يقرا 255 محرف فقط  هذا الكود

كود :

var   Stringlist: TStringlist;   begin   if o.Execute then   begin   Stringlist := TStringlist.Create;   Stringlist.Add('file_1_=[ رفع الملفات ]');   Stringlist.Add(format('file_1_=%s', [tfile.ReadAllText(o.FileName)]));   Memo1.Text := NetHTTPClient.Post('https://up.top4top.net/', Stringlist).ContentAsString;   end;

[invocker]

هل يجرب احد عنده رجاءا ربما الخلل بسيط

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


[invocker]

بارك الله فيك

[محمودد]

هكذا يعمل بنجاح

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; 


ممكن تحويل الكود للتعامل مع idhttp بدال httpclient

[invocker]

تفضل

كود :

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;