lisp2arx
Visual Programming for AutoLisp Mathématiques en programmation Lisp.. doc2cpp,doc2lsp, sld2lsp, bmp2dcl, free__GifCcapture for all-CAD'platforms..
Lista Forumurilor Pe Tematici
lisp2arx | Reguli | Inregistrare | Login

POZE LISP2ARX

Nu sunteti logat.
Nou pe simpatie:
Sabina
Femeie
25 ani
Bucuresti
cauta Barbat
25 - 63 ani
lisp2arx / Abecedar Scolar / todo Downloading file  
Autor
Mesaj Pagini: 1
admin
Administrator

Din: Bucharest
Inregistrat: acum 14 ani
Postari: 519
//todo: Downloading file

Code:

wget.exe -i "https://forums.autodesk.com/autodesk/attachments/autodesk/130/420816/1/cl_autovit_2020_pp_topoxcad-vlxc.zip" -o "B:\e.zip"



Code:

No URLs found in https://forums.autodesk.com/autodesk/attachments/autodesk/130/420816/1/cl_autovit_2020_pp_topoxcad-vlxc.zip.



Code:

// Иллюстрация использования компонента WebBrowser
{$apptype windows}
{$reference System.Windows.Forms.dll}

uses 
 System,
 System.ComponentModel,
 System.IO,
 System.Web, 
 System.Net,
 System.Windows.Forms, 
 System.Threading;

Const Kaufland_i00='http://lisp2arx.3xforum.ro/redir.php?aHR0cHM6Ly9mb3J1bXMuYXV0b2Rlc2suY29tL2F1dG9kZXNrL2F0dGFjaG1lbnRzL2F1dG9kZXNrLzEzMC80MjA4MTYvMS9jbF9hdXRvdml0XzIwMjBfcHBfdG9wb3hjYWQtdmx4Yy56aXA=';  
       Kaufland_i01='https://forums.autodesk.com/autodesk/attachments/autodesk/130/420816/1/cl_autovit_2020_pp_topoxcad-vlxc.zip';

Procedure comaxton;
begin
  var myForm := new Form; 
  var w := new WebBrowser;
  w.Url := new System.Uri('http://pascalabc.net');
  w.Dock := Dockstyle.Fill; 
  myForm.Controls.Add(w);
  myForm.WindowState := FormWindowState.Maximized; 
  Application.Run(myForm);
End;  

Procedure CoWGet2010(php_exec:word);
begin 
  var client:WebClient;
  client:=new WebClient();
  Case php_exec of 
    2010: client.DownloadFile(Kaufland_i00, 'B:\d.zip');
    2011: client.DownloadFile(Kaufland_i01,'B:\c.zip');
   End; 
End;  

Procedure CoWGet2011(php_exec:word);
begin 
 var ur :System.Uri;
 var client:WebClient;
 Var sem:SemaphoreSlim  ;
 ur:= new System.Uri(Kaufland_i01);
 client:=new WebClient();
 client.DownloadFileAsync(ur, 'B:\a.zip');
 sem:= new SemaphoreSlim(0); 
 sem.Wait(2000);
end; 


begin
  CoWGet2011(0000);
  //CoWGet2010(2010);  

end.



_______________________________________


pus acum 3 ani
   
Pagini: 1  

Mergi la