[Сrack]

VitProff, Я не использую wget.exe, знаю только, что с его помощью можно скачивать файлы. Я никогда не работал ни с http ни с https, и нет желания начинать.

[VitProff]

Сrack, Тогда если можно поделитесь тем как организовано скачивание файлов в Макрос.

Я никогда не работал ни с http ни с https, »

Но файлы по http Макрос качает хорошо?

[Сrack]

Но файлы по http Макрос качает хорошо? »

Я не так часто ей пользовался, битых файлов не было, были конечно неудачные попытки, на что срабатывала проверка по размеру.

Скрытый текст

Код:

function GetInetFileSize(const FileUrl:string): integer;
var
  idHTTP: TidHTTP;
begin
  Try
  Result:=0;
  idHTTP:=TIdHTTP.Create(nil);
  idHTTP.Head(FileUrl);
  Result:=idHTTP.Response.ContentLength;
  IdHTTP.Free;
  Except
  Result:=0;
  Exit;
  End;
end;

Код:

const BufferSize = 1024;
var hSession, hURL: HInternet;
Buffer: array[1..BufferSize] of Byte;
BufferLen: DWORD;
f: File;
sAppName: string;
OpSize,OpSizeAll:Int64;
FileNameTemp:String;

FileNameTemp:=Converter('%Temp%\'+Random(8)+'.tmp');

   sAppName := ExtractFileName(Application.ExeName);
   hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG,
         nil, nil, 0);
   try
      hURL := InternetOpenURL(hSession,
      PChar(fileURL),nil,0,0,0);
      try
         AssignFile(f, FileNameTemp);
         Rewrite(f,1);
         repeat
            InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
            BlockWrite(f, Buffer, BufferLen);
            OpSize:=OpSize+BufferLen;
            FormProgress.ProgressBar1.Position:=(OpSize*100) div OpSizeAll;
            Application.ProcessMessages;
         until BufferLen = 0;
         CloseFile(f);
         Result:=True;
      finally
      InternetCloseHandle(hURL);
      end;
   finally
   InternetCloseHandle(hSession);
   FormProgress.ProgressBar1.Visible:=False;
   end;

[VitProff]

Ясно! Здесь размер файла узнается через InDy а само скачивание через WinInet. Думал что здесь что-то получше.
Буду самостоятельно допиливать на Synapse то что задумал.
Результатами поделюсь со всеми.

[hanady]

hi,everybody
i'm really glad to be part of this good excellent forum
i'd like to ask :
Please tell me how to change the logo popup in the nice program called "sfx macros" (our topic now)
and guide me to change the logo popup from macros to my name in all resulting macros exe files
thanks in advance
i really need this to learn
waiting for the help
thanks to much

[Сrack]

hanady, Такие функции не поддерживаются.

[TToLL]

Сrack,
В последнем Вашем сборнике программ используется более новая версия SFX-Macros. Где ее можно скачать?

[Сrack]

TToLL, здесь есть http://checkdevice.narod.ru/download/MInstAll.zip

[TToLL]

Сrack,
Как Вам удалось при помощи sfx-macros закрыть всплывающие окна при установке teamviewer?

[Сrack]

TToLL, Сначала заблокировал запуск процесса TeamViewer.exe, потом разблокировал, но не сразу, а через 5 секунд, т.к. не понятно как он запускается, его похоже запускает не сам инсталлятор, а его дочерний процесс.