[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

как создать свой чекер? чекер аккаунтов однакласники!

 

1. Взять сниффер и на основе полученных данных организовать авторизацию.
2. Реализовать проверку валидности аккаунта.
3. Создать цикл, в котором с каждым проходом будут передаваться новые авторизационные данные и обработку результатов.

 

друг попросил в турбо паскале написать пару простых лаб. НАпомните плиз мне скелет минимальной программы, как переменные объявляются и какая функция для ввода цифр с клавиатуры

 

program abc;
uses crt; (и другие модули)
var "переменные типа a:integer" и т.п.
begin
тело программы
end.
по простому.

 

http://bit.ly/Hyyhw2

 

Почему не компилится, останавливается на p=

Code:

Program H1;
Var a,b,c:integer;
p,s:double;
Begin
Writeln('Vvedite a,b,c');
Readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c);
Writeln(s);
End.

 

задай тип real

 

Raine,

Code:

s:=sqrt[COLOR=DarkRed]([/COLOR]p*(p-a)*(p-b)*(p-c);

 

как реализовать Drag & Drop внутри одной формы?нужно перетаскивать картинки лежащие на форме,в определенную область

 

с инди вылетает ошибка Eidsocketerror

Code:

try
.....
except
on e:eidsocketerror do begin
...
...
...
end;
end;

Так не выходит, eidsocketerror неизвестный индификатор. Подскажите как правильно пожалуйста.

 

Нужно подключить модуль в котором объявлен Eidsocketerror.

 

implementation

uses IdException;

 

Собственно не выполняется код в
on
e:eidsocketerror do begin
...
...
...
end;

Приложени стопорится. Подскажите пожалуйста как восстановить приложение после ошибки eidsocketerror

 

Обрабатываешь ошибку, и чтоб выполнялся дальше код заключаешь в try except (только код запроса) и выполнения продолжиться со строки кода после обработчика исключения, возвратица на тоже место нельзя.

 

А продолжение дальше выполнение кода которое после
try
except
end;
возможно?

 

Да я об этом выше написал, советую прочитать про обработку искл. в делфи, там хорошо расписано насчет этих моментов.

 

procedure TForm1.Button1Click(Sender: TObject);
var log, p :string;
data :tstringlist;
begin
Data:=tstringlist.create;
Data.add('id='+edit1.text);
Data.add('us2t='+CheckBox1);
Data.add('ps='+edit2.text);
Data.add('Submit=');
p:=IdHttp1.Get('http://sasisa.ru/chat/login?id=+edit1.text&us2t=+checkbox&ps=+edit2.text',data);

end;

end.



Помогите

 

Code:

procedure TForm1.Button1Click(Sender: TObject);
var log, p :string;
data :tstringlist;
begin
  Data:=tstringlist.create;
  Data.add('id='+edit1.text);
  Data.add('us2t='+ BoolToStr(CheckBox1.Checked));
  Data.add('ps='+edit2.text);
  Data.add('Submit=');
   p := IdHttp1.Get('http://sasisa.ru/chat/login' + 
   'id=+edit1.text&us2t=+checkbox&ps=+edit2.text',data);
end;

end.

Не получеться установить, ICS, вылетает

Пути прописаны.

 

Народ кто может подправить??Снифером пробывал отследить неполучилось!

http://rghost.ru/37578072

Сообщение должно добавлятса в эту комнату
http://wap.sasisa.ru/chat/chat.php?rm=5&r=14539&

Пожалуйста помогите!

 

множества

Подскажите как множество вывести на мемо????
вывести на печать! Не получается ((