دخول

**onexite**

(09-10-2018, 01:40 PM)invocker كتب : طيب هل يوجد مثال لاي موقع رفع

تفضل
http://delphi4arab.net/forum/showthread.php?tid=9566

كود :
  function UploadFile(Sfile:string):string;
{
const
BaseUrl ='http://127.0.0.1/UploadFilesBasic';
userName = 'admin' ;
apikey = 'fnp9b3tndVh1dHB9dDlxfH0'  ;   }
var
    Params: TIdMultipartFormDataStream;
begin
BaseUrl := form1.Edit1.Text;
userName := form1.Edit2.Text ;
apikey := form1.Edit3.Text  ;
form1.Cursor:=crHourGlass;
form1.Label1.Caption := '';

try
Params:=TIdMultiPartFormDataStream.Create;

//Params.AddFile('uploadfile',Sfile,'multipart/form-data');

   with Params.AddFile('uploadfile',Sfile,'multipart/form-data') do
  begin
    HeaderEncoding := '8';
    HeaderCharSet := 'UTF-8';
  end;

Params.AddFormField('passwordfile',form1.Edit4.Text, 'utf-8').ContentTransfer := '8bit';
Params.AddFormField('ispublic',IntToStr(Integer(form1.CheckBox1.Checked)));
form1.IdHTTP1.Request.CustomHeaders.Clear;
form1.IdHTTP1.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; rv:54.0) Gecko/20100101 Firefox/54.0';
form1.IdHTTP1.Request.CustomHeaders.Add('X-Requested-With: XMLHttpRequest');
//form1.IdHTTP1.Request.CustomHeaders.Add('X-File-Name: '+extractfilename(Sfile));
Form1.IdHTTP1.Request.ContentType:='application/json' ;
Form1.IdHTTP1.Request.ContentEncoding := 'UTF-8';
Form1.IdHTTP1.Request.CustomHeaders.Add('Vary: Accept-Encoding');

try
result:=form1.Idhttp1.post(BaseUrl+'/ajax/index.php?uploadfile&api='+apikey+'=&username='+userName,Params);
except
 result:='{"success":false,"msg":"Server not responding"}';
 //on E : Exception do ShowMessage(E.ClassName+' error raised, with message : '+E.Message);
end;
Finally
  Params.Free  ;
  form1.Cursor:=crDefault;
end;
end;

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة