 |
|
30.09.2009, 22:36
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
С нами:
10097606
Репутация:
3349
|
|
VPN сервер ты никогда не создаш средствами делфи. а если и создаш то это будет ожас как тупить. Ставь OpenVPN и не мучайся.
|
|
|
я не хочу создавать vpn сервер! |
01.10.2009, 08:21
|
|
Новичок
Регистрация: 01.07.2009
Сообщений: 2
С нами:
8874476
Репутация:
0
|
|
я не хочу создавать vpn сервер!
НАДО создать новое соединение vpn в windows!
(Сетевые подключения->Новое подключение->VPN)!
Нашел пример (или даже реализацию)
http://forum.antichat.ru/showthread.php?p=654948
Тока там компонента нет, по ссылке http://slil.ru/25692156 файл удален!
|
|
|
|
01.10.2009, 18:57
|
|
Познающий
Регистрация: 02.06.2009
Сообщений: 67
С нами:
8916612
Репутация:
54
|
|
wolmer, у меня последний вариант)
Код:
TreeView1.Items[0].Item[1].Item[1].Parent.Index;
|
|
|
|
01.10.2009, 22:34
|
|
Познающий
Регистрация: 13.06.2009
Сообщений: 32
С нами:
8901549
Репутация:
2
|
|
slesh, нук подскажи)
как дороботать чтобы куки посылать?)) если в заголовке куки посылать то хз почему по когда снифаю они не передаются!
Код:
function DownloadFile(const from_, to_: string): boolean;
var
hs, url: HInternet;
buff: array[1..1024] of Byte;
buff_length: DWORD;
f: file;
sAppName: string;
begin
Result:=False;
sAppName := ExtractFileName(Application.ExeName);
hs:=InternetOpen(PChar(sAppName),
INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
try
url:=InternetOpenURL(hs, PChar(from_), nil, 0, 0, 0);
try
AssignFile(f, to_);
Rewrite(f,1);
repeat
InternetReadFile(url, @buff, SizeOf(buff), buff_length);
BlockWrite(f, buff, buff_length);
until
buff_length=0;
CloseFile(f);
Result:=True;
finally
InternetCloseHandle(url);
end;
finally
InternetCloseHandle(hs);
end;
end;
|
|
|
|
02.10.2009, 00:04
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
С нами:
10097606
Репутация:
3349
|
|
2 InternetOpenUrl автоматом сама учитывает куки полученные на предыдущих запросах.
ЧТобы отключить это юзается предпоследний параметр - Flag = INTERNET_FLAG_NO_COOKIES
также в этой функции 3-й параметр - адрес буфера где хранятся дополнительные хидеры.
а четрветый параметр - длинна их.
Вот их и юзай. т.е. сам составляй дополнительныйт ихер типа
Cookie: xxxxxx
|
|
|
|
02.10.2009, 14:55
|
|
Познающий
Регистрация: 19.08.2008
Сообщений: 69
С нами:
9329667
Репутация:
31
|
|
Приветствую всех
Есть процедура, в ней очень много кода.
Необходимо при нажатии на кнопку(например) - тут же остановить выполнение этой процедуры
Метод if stop=true then exit; не предлагать(кода ужастно много не писать же после каждой строчки это...)
Пример того что я хочю можно увидеть в потоках
тоесть процедура thread.Terminate;
К сожелению потоки тоже использовать немогу....
|
|
|
|
02.10.2009, 18:12
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
С нами:
10139366
Репутация:
1502
|
|
по какой пичине не устраивает поток либо фибер?
так в голову приходят только совсем идиотские мысли вроде установить обработчик исключения и как-нибудь его вызвать. например, код в памяти переписать ) или... короче, это - извращения
__________________
Bedankt euch dafür bei euch selbst.
H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
|
|
|
|
02.10.2009, 19:50
|
|
Познающий
Регистрация: 19.08.2008
Сообщений: 69
С нами:
9329667
Репутация:
31
|
|
Сообщение от desTiny
по какой пичине не устраивает поток либо фибер?
так в голову приходят только совсем идиотские мысли вроде установить обработчик исключения и как-нибудь его вызвать. например, код в памяти переписать ) или... короче, это - извращения
Вообще у меня почемуто с потоками программа работала через раз... (программа каждую секунду меняет картинку в TImage)
Сча вродь написал эту часть программы с нуля в другом проекте все заработало=)
Впринципе этот вопрос можно считать решонным=)
Ну и раз уж я тут =))) спрошу про варнинги
Override method timeisout.execute should match case of ancestor TThread.Execute
никак немогу убрать эту ошибку=(
Symbol 'Suspend' is deprecated
Ошибка показывает что процедура Suspend устарела
Но чет немогу найти альтурнативу ей...
|
|
|
|
02.10.2009, 20:07
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
С нами:
10139366
Репутация:
1502
|
|
ели раз в секунду - то делай SetTimer и KillTimer
__________________
Bedankt euch dafür bei euch selbst.
H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
|
|
|
|
02.10.2009, 20:24
|
|
Познающий
Регистрация: 19.08.2008
Сообщений: 69
С нами:
9329667
Репутация:
31
|
|
я сказал образно =) Таймеры в программе испльзуются Но в данном случае он неприемлим Идея программы уже продуманна(не одну неделю думал...), программа написана, работает и осталось только улучшить некоторые её части(из за того что процедура завершается несразу происходит "проскок" цыфр(картинок цыфр))
Ответь пожалуйста насчёт ворнингов=)
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
