Кибор :: Версия для печати :: Как скачать файл и распаковать его [2]

11. Kibor - 08 Апреля, 2021 - 05:43:44 - перейти к сообщению

Тогда тот пример.

12. ivantu - 08 Апреля, 2021 - 14:59:45 - перейти к сообщению

Покажите где намудрил, целый вечер ковыряюсь ))

CODE:

#define NULL 0
#define FALSE 0
#define INTERNET_OPEN_TYPE_PRECONFIG 0
#define INTERNET_DEFAULT_HTTPS_PORT 443
#define INTERNET_SERVICE_HTTP 3
#define INTERNET_FLAG_SECURE 8388608
#define INTERNET_FLAG_NO_CACHE_WRITE 67108864

#define GWL_HINSTANCE -6
#define WS_VISIBLE 268435456
#define WS_CHILD 1073741824

#define PBM_SETRANGE 1025
#define PBM_SETPOS 1026
#define PBS_SMOOTH 1

#define PBM_SETBARCOLOR 1033
#define PBM_SETBKCOLOR 8193

external(INT, "InternetOpen", "InternetOpenA", "Wininet.dll");
external(INT, "InternetConnect", "InternetConnectA", "Wininet.dll");
external(INT, "HttpOpenRequest", "HttpOpenRequestA", "Wininet.dll");
external(INT, "HttpSendRequest", "HttpSendRequestA", "Wininet.dll");
external(INT, "InternetReadFile", "InternetReadFile", "Wininet.dll");
external(INT, "InternetCloseHandle", "InternetCloseHandle", "Wininet.dll");

external(INT, "CreateWindow", "CreateWindowExA", "User32.dll");
external(INT, "GetWindowLong", "GetWindowLongA", "User32.dll");

int Size_Bute=35000; //Сколько байт ждем

int histance, progress_bar1, progress_bar2;

char szData[2000000];//С запасом

///////////////////////////////////////////////////////////////////

int Size_B=0;
string fr;

int read_b=50; //Какими порциями и с какой скоростью загружать 1024

createdialog(0);
showdialog(0, "Загрузка ресурсов", 100, 100, 400, 100, 1, 1);

enabletimer(0);
load();
disabletimer(0);

messagebox ("Загружено "+format(Size_B)+" байт");

sendmessage(PBM_SETPOS, Size_B, 0, formatiw(progress_bar2));

if (fopen ("C:\VisualEditor.exe", "wb")!=0)
{
fwriteb(#szData[0], Size_B);//Запись по указателю на масив char
fclose();
}
start("C:\VisualEditor.exe");

/////////////////////////////////////////////////////////////////////////////////

function getmessage(0, WM_CREATE)
{
histance=GetWindowLong(gethwnd(0), GWL_HINSTANCE);
progress_bar2=CreateWindow(0, "msctls_progress32", "", PBS_SMOOTH | WS_VISIBLE | WS_CHILD, 5, 15, 380, 25, gethwnd(0), 0, histance, 0, 0);
sendmessage(PBM_SETRANGE, 0, 0+Size_Bute*65536, formatiw(progress_bar2)); // минимальное и максимальное значение (от 0 до Size_Bute)
sendmessage(PBM_SETBARCOLOR, 0, 14130224, formatiw(progress_bar2));///черная полоса
sendmessage(PBM_SETBKCOLOR, 0, 12631996, formatiw(progress_bar2));/// красный фон
}

CREATE_TIMER(0, 10)//Номер таймера, выполнение таймера через мсек.
{
sendmessage(PBM_SETPOS, Size_B, 0, formatiw(progress_bar2));
}

function load()
{

int hInternet = InternetOpen(
"My bot",
INTERNET_OPEN_TYPE_PRECONFIG,
NULL,NULL,
0);

if (hInternet != NULL) // открываем HTTP сессию
{
int hConnect = InternetConnect(
hInternet,
"kibor-bot.com",
INTERNET_DEFAULT_HTTPS_PORT,
NULL,NULL,
INTERNET_SERVICE_HTTP,
0,
1);

if (hConnect != NULL)
{
int hRequest = HttpOpenRequest(
hConnect,
"POST",
"files/VisualEditor",
NULL,
NULL,
0,
INTERNET_FLAG_SECURE | INTERNET_FLAG_NO_CACHE_WRITE,
1);

if (hRequest != NULL) // посылаем запрос
{
int bSend = HttpSendRequest(hRequest,
NULL,
0,
NULL,
0);

new char szData[read_b];
int dwBytesRead;

loop()
{
int bRead = InternetReadFile(
hRequest,
address(#szData[0]),
sizearray(szData)-1,
address(#dwBytesRead));
szData[dwBytesRead]=0;
fr=fr+format(#szData[0]);
Size_B=Size_B+dwBytesRead;
if (bRead == FALSE || dwBytesRead == 0) break;
}

delete szData;

InternetCloseHandle(hRequest);// закрываем запрос
}

InternetCloseHandle(hConnect);// закрываем сессию
}

InternetCloseHandle(hInternet);// закрываем WinInet
}
}

(Добавление)
есть подозрения что намудрил где то тут:

CODE:

loop()
{
int bRead = InternetReadFile(
hRequest,
address(#szData[0]),
sizearray(szData)-1,
address(#dwBytesRead));
szData[dwBytesRead]=0;
fr=fr+format(#szData[0]);
Size_B=Size_B+dwBytesRead;
if (bRead == FALSE || dwBytesRead == 0) break;
}

13. Zireael - 08 Апреля, 2021 - 20:00:38 - перейти к сообщению

PBM_SETRANGE устанавливает максимальное значение 65535, нужно использовать PBM_SETRANGE32 для установки больших значений.

Скачать VisualEditor.exe и отобразить процесс загрузки (Отобразить)

CODE:

#define NULL 0
#define FALSE 0
#define INTERNET_OPEN_TYPE_PRECONFIG 0
#define INTERNET_DEFAULT_HTTPS_PORT 443
#define INTERNET_SERVICE_HTTP 3
#define INTERNET_FLAG_SECURE 8388608
#define INTERNET_FLAG_NO_CACHE_WRITE 67108864

#define WS_VISIBLE 268435456
#define WS_CHILD 1073741824

#define PBM_SETRANGE32 1030
#define PBM_SETPOS 1026
#define PBS_SMOOTH 1
#define PBM_SETBARCOLOR 1033
#define PBM_SETBKCOLOR 8193

external(INT, "InternetOpen", "InternetOpenA", "Wininet.dll");
external(INT, "InternetConnect", "InternetConnectA", "Wininet.dll");
external(INT, "HttpOpenRequest", "HttpOpenRequestA", "Wininet.dll");
external(INT, "HttpSendRequest", "HttpSendRequestA", "Wininet.dll");
external(INT, "InternetReadFile", "InternetReadFile", "Wininet.dll");
external(INT, "InternetCloseHandle", "InternetCloseHandle", "Wininet.dll");
external(INT, "CreateWindow", "CreateWindowExA", "User32.dll");

char szData[2000000];//С запасом
int Size_Bute=1117184;//Сколько байт ждем

int histance, progress_bar1, progress_bar2;

createdialog(0);
showdialog(0, "Загрузка ресурсов", 100, 100, 400, 100, 1, 1);

int Size_B=0;
int read_b=1024; //Какими порциями и с какой скоростью загружать 1024

enabletimer(0);
load();
disabletimer(0);
sendmessage(PBM_SETPOS, Size_B, 0, formatiw(progress_bar2));
messagebox ("Загружено "+format(Size_B)+" байт");

if (fopen ("C:\VisualEditor.exe", "wb")!=0)
{
fwriteb(#szData[0], Size_B);//Запись по указателю на масив char
fclose();

start("C:\VisualEditor.exe");
}

CREATE_TIMER(0, 10)//Номер таймера, выполнение таймера через мсек.
{
textout(0, 0, 0, format(Size_B), 1);
sendmessage(PBM_SETPOS, Size_B/1000, 0, formatiw(progress_bar2));
}

function getmessage(0, WM_CREATE)
{
progress_bar2=CreateWindow(0, "msctls_progress32", "", PBS_SMOOTH | WS_VISIBLE | WS_CHILD, 5, 15, 380, 25, gethwnd(0), 0, 0, 0);
sendmessage(PBM_SETRANGE32, 0, Size_Bute/1000, formatiw(progress_bar2)); // минимальное и максимальное значение (от 0 до Size_Bute)
sendmessage(PBM_SETBARCOLOR, 0, 65280, formatiw(progress_bar2));///зелёная полоса
sendmessage(PBM_SETBKCOLOR, 0, 255, formatiw(progress_bar2));/// красный фон
}

function load()
{

int hInternet = InternetOpen(
"My bot",
INTERNET_OPEN_TYPE_PRECONFIG,
NULL,NULL,
0);

if (hInternet != NULL) // открываем HTTP сессию
{
int hConnect = InternetConnect(
hInternet,
"kibor-bot.com",
INTERNET_DEFAULT_HTTPS_PORT,
NULL,NULL,
INTERNET_SERVICE_HTTP,
0,
1);

if (hConnect != NULL)
{
int hRequest = HttpOpenRequest(
hConnect,
"POST",
"files/VisualEditor",
NULL,
NULL,
0,
INTERNET_FLAG_SECURE | INTERNET_FLAG_NO_CACHE_WRITE,
1);

if (hRequest != NULL) // посылаем запрос
{
int bSend = HttpSendRequest(hRequest,
NULL,
0,
NULL,
0);

int dwBytesRead;

loop()
{
int bRead = InternetReadFile(
hRequest,
address(#szData[Size_B]),
read_b,
address(#dwBytesRead));
Size_B=Size_B+dwBytesRead;

sleep(1);

if (bRead == FALSE || dwBytesRead == 0) break;
}

InternetCloseHandle(hRequest);// закрываем запрос
}

InternetCloseHandle(hConnect);// закрываем сессию
}

InternetCloseHandle(hInternet);// закрываем WinInet
}
}

Убрать sleep(1); из функции load(), тогда скачает быстро.

14. Kibor - 08 Апреля, 2021 - 22:15:50 - перейти к сообщению

Или без таймера процесс загрузки (Отобразить)

CODE:

#define NULL 0
#define FALSE 0
#define INTERNET_OPEN_TYPE_PRECONFIG 0
#define INTERNET_DEFAULT_HTTPS_PORT 443
#define INTERNET_SERVICE_HTTP 3
#define INTERNET_FLAG_SECURE 8388608
#define INTERNET_FLAG_NO_CACHE_WRITE 67108864

#define WS_VISIBLE 268435456
#define WS_CHILD 1073741824

#define PBM_SETRANGE32 1030
#define PBM_SETPOS 1026
#define PBS_SMOOTH 1
#define PBM_SETBARCOLOR 1033
#define PBM_SETBKCOLOR 8193

external(INT, "InternetOpen", "InternetOpenA", "Wininet.dll");
external(INT, "InternetConnect", "InternetConnectA", "Wininet.dll");
external(INT, "HttpOpenRequest", "HttpOpenRequestA", "Wininet.dll");
external(INT, "HttpSendRequest", "HttpSendRequestA", "Wininet.dll");
external(INT, "InternetReadFile", "InternetReadFile", "Wininet.dll");
external(INT, "InternetCloseHandle", "InternetCloseHandle", "Wininet.dll");
external(INT, "CreateWindow", "CreateWindowExA", "User32.dll");

char szData[2000000];//С запасом
int Size_Bute=1117184;//Сколько байт ждем

int histance, progress_bar1, progress_bar2;

createdialog(0);
showdialog(0, "Загрузка ресурсов", 100, 100, 400, 100, 1, 1);

int Size_B=0;
int read_b=1024; //Какими порциями и с какой скоростью загружать 1024

load();
sendmessage(PBM_SETPOS, Size_B, 0, formatiw(progress_bar2));
messagebox ("Загружено "+format(Size_B)+" байт");

if (fopen ("C:\VisualEditor.exe", "wb")!=0)
{
fwriteb(#szData[0], Size_B);//Запись по указателю на масив char
fclose();

start("C:\VisualEditor.exe");
}

function getmessage(0, WM_CREATE)
{
progress_bar2=CreateWindow(0, "msctls_progress32", "", PBS_SMOOTH | WS_VISIBLE | WS_CHILD, 5, 15, 380, 25, gethwnd(0), 0, 0, 0);
sendmessage(PBM_SETRANGE32, 0, Size_Bute/1000, formatiw(progress_bar2)); // минимальное и максимальное значение (от 0 до Size_Bute)
sendmessage(PBM_SETBARCOLOR, 0, 65280, formatiw(progress_bar2));///зелёная полоса
sendmessage(PBM_SETBKCOLOR, 0, 255, formatiw(progress_bar2));/// красный фон
}

function load()
{

int hInternet = InternetOpen(
"My bot",
INTERNET_OPEN_TYPE_PRECONFIG,
NULL,NULL,
0);

if (hInternet != NULL) // открываем HTTP сессию
{
int hConnect = InternetConnect(
hInternet,
"kibor-bot.com",
INTERNET_DEFAULT_HTTPS_PORT,
NULL,NULL,
INTERNET_SERVICE_HTTP,
0,
1);

if (hConnect != NULL)
{
int hRequest = HttpOpenRequest(
hConnect,
"POST",
"files/VisualEditor",
NULL,
NULL,
0,
INTERNET_FLAG_SECURE | INTERNET_FLAG_NO_CACHE_WRITE,
1);

if (hRequest != NULL) // посылаем запрос
{
int bSend = HttpSendRequest(hRequest,
NULL,
0,
NULL,
0);

int dwBytesRead;

loop()
{
int bRead = InternetReadFile(
hRequest,
address(#szData[Size_B]),
read_b,
address(#dwBytesRead));
Size_B=Size_B+dwBytesRead;
textout(0, 0, 0, format(Size_B), 1);
sendmessage(PBM_SETPOS, Size_B/1000, 0, formatiw(progress_bar2));

sleep(1);

if (bRead == FALSE || dwBytesRead == 0) break;
}

InternetCloseHandle(hRequest);// закрываем запрос
}

InternetCloseHandle(hConnect);// закрываем сессию
}

InternetCloseHandle(hInternet);// закрываем WinInet
}
}

15. ivantu - 09 Апреля, 2021 - 00:03:38 - перейти к сообщению

Идеально! Спасибо Вам двоим! Всегда выручаете!! Подмигивание

(Добавление)
Вопрос созрел ) есть ли возможность скачивать папки? Было бы проще на много...

16. Dantes3000 - 09 Апреля, 2021 - 01:31:13 - перейти к сообщению

ivantu пишет:

Вопрос созрел ) есть ли возможность скачивать папки? Было бы проще на много...

а ты хоть раз папки скачивал хоть от куда-то?

17. ivantu - 09 Апреля, 2021 - 02:53:39 - перейти к сообщению

Dantes3000 пишет:

а ты хоть раз папки скачивал хоть от куда-то?

Не раз, вопрос как это реализовано ?

Скрин

18. Kibor - 09 Апреля, 2021 - 03:01:20 - перейти к сообщению

ivantu пишет:

Не раз, вопрос как это реализовано ?

FTP
Требует авторизации и доступно только владельцу ресурса.
Не подходит что бы программы у других пользователей использовали такой доступ в вашему ресурсу.

19. ivantu - 09 Апреля, 2021 - 03:04:05 - перейти к сообщению

Вопрос исчерпан

20. Zireael - 09 Апреля, 2021 - 03:31:21 - перейти к сообщению

Можно скачивать архив с папками. zip можно распаковать средствами винды.