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