На нашем форуме вы сможете найти самые свежие и рабочие Читы для CrossFire, Читы для Point Blank, Читы для SAMP, Читы для cs 1.6, Читы для World Of Tanks, WOW Читы, Вконтакте Баги, Черный Рынок.


Хай // ещё туторчик по делфям

В юзес пихаем:

Код: выделить все
UrlMon


Где-нибудь пихаем функцию:

Код: выделить все
function DownloadFile(SourceFile, DestFile: string): Boolean; 
begin
  try
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except
    Result := False;
  end;
end;


Далее, можно на FormCreate кинуть константы
Код: выделить все
const
SourceFile = 'http://Сайт.ком/filenaservere.exe';
DestFile = 'C:\file.exe';


Теперь на кнопку:

Код: выделить все
DownloadFile(SourceFile, DestFile);


Чтобы форма не зависала на форму кидаем компонент IdAntiFreeze

И теперь файл с сервера будет качаться на диск C, под именем file.exe

Расширения на сервере и при сохранении должны совпадать!

Вот и всё.

m0nr писал(а): Хай // ещё туторчик по делфям

В юзес пихаем:

Код: выделить все
UrlMon


Где-нибудь пихаем функцию:

Код: выделить все
function DownloadFile(SourceFile, DestFile: string): Boolean; 
begin
  try
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except
    Result := False;
  end;
end;


Далее, можно на FormCreate кинуть константы
Код: выделить все
const
SourceFile = 'http://Сайт.ком/filenaservere.exe';
DestFile = 'C:\file.exe';


Теперь на кнопку:

Код: выделить все
DownloadFile(SourceFile, DestFile);


Чтобы форма не зависала на форму кидаем компонент IdAntiFreeze

И теперь файл с сервера будет качаться на диск C, под именем file.exe

Расширения на сервере и при сохранении должны совпадать!

Вот и всё.

можешь сказать как сделать чтоб в папку с программой сохранялся файл а не на С

m0nr писал(а): Хай // ещё туторчик по делфям

В юзес пихаем:

Код: выделить все
UrlMon


Где-нибудь пихаем функцию:

Код: выделить все
function DownloadFile(SourceFile, DestFile: string): Boolean; 
begin
  try
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except
    Result := False;
  end;
end;


Далее, можно на FormCreate кинуть константы
Код: выделить все
const
SourceFile = 'http://Сайт.ком/filenaservere.exe';
DestFile = 'C:\file.exe';


Теперь на кнопку:

Код: выделить все
DownloadFile(SourceFile, DestFile);


Чтобы форма не зависала на форму кидаем компонент IdAntiFreeze

И теперь файл с сервера будет качаться на диск C, под именем file.exe

Расширения на сервере и при сохранении должны совпадать!

Вот и всё.

можешь сказать как сделать чтоб в папку с программой сохранялся файл а не на С

CRIPTON писал(а):
m0nr писал(а): Хай // ещё туторчик по делфям

В юзес пихаем:

Код: выделить все
UrlMon


Где-нибудь пихаем функцию:

Код: выделить все
function DownloadFile(SourceFile, DestFile: string): Boolean; 
begin
  try
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except
    Result := False;
  end;
end;


Далее, можно на FormCreate кинуть константы
Код: выделить все
const
SourceFile = 'http://Сайт.ком/filenaservere.exe';
DestFile = 'C:\file.exe';


Теперь на кнопку:

Код: выделить все
DownloadFile(SourceFile, DestFile);


Чтобы форма не зависала на форму кидаем компонент IdAntiFreeze

И теперь файл с сервера будет качаться на диск C, под именем file.exe

Расширения на сервере и при сохранении должны совпадать!

Вот и всё.

можешь сказать как сделать чтоб в папку с программой сохранялся файл а не на С

Немного опоздал, но мб кому-то понадобится. Ответ:

В этой строке просто убрать C:\
DestFile = 'C:\file.exe';
Т.е. просто оставить имя файла.
Сообщений: 4 Страница 1 из 1

Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3

Показать больше...