Search Forum Home   Visual FoxPro  Win32 API  Upload file cu ...  Upload file cu VFP    4/30/2008 4:11:55 PM gabirom 34 posts Upload file cu VFP  (Romania) Are cineva  o idee cum se poate face upload din vfp ?? Am o aplicatie in vfp care citeste informatii de pe internet cu winhttpRequest.. acum am nevoie sa trimit niste fisiere catre serverul de web care este pe linux cu php. Din form clasic http totul este ok ... din fox .. nu am reusit .  4/30/2008 8:30:39 PM CLASSOFT 231 posts www.classoft.ro Re: Upload file cu VFP  (N/A) Fie folosesti o clasa de FTP(API) fie direct prin STP/ODBC pui fisierele intr-o tabela mySQL pe urma le extragi pe discul serverului cu o rutina PHP. Cristi Birlea www.classoft.eu  5/2/2008 9:58:11 AM gabirom 34 posts Re: Upload file cu VFP  (N/A) Am gasit !!!!! procedure uploadvfp fisier='c:\flori.mp3' adresa='www.myserver.ro' boundary = '---------------------------7d83c826102d6' cr=chr(13)+chr(10) filecontent = filetostr(fisier) content='--'+boundary + cr + ; 'Content-Disposition: form-data; name="file"; filename="'+fisier+'"'+cr+; 'Content-Type: application/octet-stream'+cr+cr+; filecontent+cr+cr+'--'+boundary+cr+; 'Content-Disposition: form-data; name="submit"'+cr+cr+; 'Submit'+cr+cr+'--'+boundary+cr ** se pot trimite si alte informatii cu POST utile la procesare fisierului upload-at ** se adauga <<'Content-Disposition: form-data; name="executa"'+cr+cr+'PLAY'+cr+cr+'--'+boundary+cr>> pentru fiecare variabila POST contentlen=alltrim(str(len(content))) ohttp=createobject("winhttp.winhttprequest.5.1") ohttp.open("POST","http://"+adresa+"/upload.php",.f.) acc = 'image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel,' acc=acc+' application/vnd.ms-powerpoint, application/msword, application/xaml+xml, application/vnd.ms-xpsdocument,' acc=acc+' application/x-ms-xbap, application/x-ms-application, */*' ohttp.SetRequestHeader("Accept", acc) ohttp.SetRequestHeader("Accept-Language", "en-us") ohttp.setrequestheader("Content-Type","multipart/form-data; boundary="+boundary) ohttp.setrequestheader("Accept-Encoding","gzip, deflate") ohttp.SetRequestHeader("User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30)") ohttp.setrequestheader("Content-Length",contentlen) ohttp.setrequestheader("Connection","Keep-Alive") ohttp.setrequestheader("Cache-Control","no-cache") ohttp.send(createbinary(content)) release ohttp endproc  Page 1 of 1   Visual FoxPro  Win32 API  Upload file cu ... Flat View Tree View Oldest To Newest Newest To Oldest