![]() ![]() Procedure Tfrmoxidemodinstaller.Drop a TLabel and a TButton on your form.ĭouble-click the button, and write procedure TForm1.Button1Click(Sender: TObject) Procedure Tfrmoxidemodinstaller.btn1Click(Sender: TObject) ĭownloadThread := TDownload.Create(true, link, 'oxide.zip') TZipFile.ExtractZipFile(ZipFile, ExtractPath) į := 'Oxide Installed!' į := 'Error Installing Oxide!' Procedure TDownload.ExtractZip(ZipFile, ExtractPath: string) Procedure TDownload.idhttp1WorkBegin(ASender: TObject AWorkMode: TWorkMode į := progressbarstatus į := 'Downloading.' Procedure TDownload.idhttp1Work(ASender: TObject AWorkMode: TWorkMode Httpclient.OnWorkBegin := idhttp1WorkBegin Procedure idhttp1WorkBegin(ASender: TObject AWorkMode: TWorkMode Ĭonstructor Create(CreateSuspended: boolean aurl, afilename: string) įrmoxidemodinstaller: Tfrmoxidemodinstaller Ĭonstructor TDownload.Create(CreateSuspended: boolean aurl, afilename: string) Procedure idhttp1Work(ASender: TObject AWorkMode: TWorkMode Procedure ExtractZip(ZipFile: string ExtractPath: string) IdTCPConnection, IdTCPClient, IdHTTP, System.Zip Vcl.StdCtrls, IdBaseComponent, IdComponent, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.ComCtrls, Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, Here is my current project code: unit uOxideModInstaller I found the following post, but I'm struggling to add it to my current project: I want to make it download this link:Īlso doesnt work, even when using the SSL protocol. I want to make it download straight from the original website, but it doesn't want to work. I currently have a program that downloads a file from my VPS and extracts it. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |