Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
04.05.2010, 13:46
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
Провел на форуме:
7879791
Репутация:
265
|
|
[Ошибка] Unit1.pas(173): Undeclared identifier: 'RegExp'
[Ошибка] Unit1.pas(174): Missing operator or semicolon
[Ошибка] Unit1.pas(175): Undeclared identifier: 'captcha_sid'
[Ошибка] Unit1.pas(175): Missing operator or semicolon
[Ошибка] Unit1.pas(177): Undeclared identifier: 'fr'
[Ошибка] Unit1.pas(177):  Missing operator or semicolon
[Ошибка] Unit1.pas(179): Missing operator or semicolon
[Ошибка] Unit1.pas(181): Missing operator or semicolon
[Ошибка] Unit1.pas(182): Undeclared identifier: 'captcha_key'
[Ошибка] Unit1.pas(182): Types of actual and formal var parameters must be identical
[Ошибка] Unit1.pas(241): Undeclared identifier: 'RegExp'
[Фатальная Ошибка] Project1.dpr(6): Could not compile used unit 'Unit1.pas' вот
|
|
|
04.05.2010, 13:48
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
Провел на форуме:
828081
Репутация:
84
|
|
Хы, ну приколист то а
Объект то объявлять еще надо в функции в которой используешь:
var
RegExp : TregExpr;
captcha_sid , captcha_key: string;
....................
A fr поменяй на имя своей формы
Последний раз редактировалось GhostOnline; 04.05.2010 в 13:52..
|
|
|
|
04.05.2010, 14:02
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
Провел на форуме:
7879791
Репутация:
265
|
|
GhostOnline всё скомпилировалось, но капча не сохраняется
|
|
|
|
04.05.2010, 14:15
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
Провел на форуме:
828081
Репутация:
84
|
|
Отлаживай программу по шагам, и найдешь где косяк
В этом месте что ты передаешь в метод:
RegExp.Exec(result); ? что у тебя хранится в переменной result?
И вот эту хню:
ms.SaveToFile('captcha_temp.jpeg');
fr.image1.Picture.LoadFromFile('captcha_temp.jpeg' );
поменяй на
Image1.Picture.Bitmap.LoadFromStream(ms);
потому что бессмысленно сохранять в файл, чтобы тут же из файла загрузить :-D
|
|
|
|
04.05.2010, 14:31
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
Провел на форуме:
7879791
Репутация:
265
|
|
RegExp.Exec(result); ? что у тебя хранится в переменной result?
result: string; так?
И вот эту хню:
ms.SaveToFile('captcha_temp.jpeg');
fr.image1.Picture.LoadFromFile('captcha_temp.jpeg' );
поменяй на
Image1.Picture.Bitmap.LoadFromStream(ms);
сделал.
|
|
|
|
04.05.2010, 14:42
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
Провел на форуме:
828081
Репутация:
84
|
|
Повторяю: отлаживай программу по шагам, так проще всего найти где ошибка
Я лично не собираюсь брать твой код на отладку
|
|
|
|
04.05.2010, 15:12
|
|
Познающий
Регистрация: 07.05.2009
Сообщений: 70
Провел на форуме:
420226
Репутация:
38
|
|
Сообщение от Flair
Народ, нужно написать программу. Легкая, школьный курс
Помогите пожалуйста 
Создайте массив, содержащих информацию о машинах (марка, год выпуска, цвет, номер). Выведите на экран информацию о машинах черного цвета. Выведите на экран марки машин, номера которые начинаются на букву М. Упорядочьте записи в массиве по возрастанию года выпуска
Язык pascal. На счет массива хз.
Но нужно по премеру этой программы
Код:
program sotrudniki;
type
sotrudniki=record
surname:string;
name:string;
age:byte;
data:integer;
plata:integer;
pol:char;
end;
var mas: array [1..25] of sotrudniki;
a,s,i:integer;
begin
write('a=');
read(a);
for i:=1 to a do
begin
write('vvedite familiy');
read(zap[i].surname);
write('vvedite imia');
read(zap[i].name);
write('vvedite vozrast');
read(zap[i].age);
write('vvedite god priniatia na raboty');
read(zap[i].data);
write('vvedite razmer zarabotnoi plati');
read(zap[i].plata);
write('vvedite pol');
read(zap[i].pol);
end;
writeln('surname','name','age','pla ta','pol');
for i:=1 to a do
begin
write(zap[i].surname:9);
write(zap[i].name:4);
write(zap[i].age:3);
write(zap[i].data:4);
write(zap[i].plata:6);
write(zap[i].pol:2);
writeln;
end;
for i:=1 to a do
begin
if zap[i].pol='z'then
s:=s+zap[i].plata;
end;
writeln('summa=',s);
end.
|
|
|
|
04.05.2010, 15:22
|
|
Участник форума
Регистрация: 23.07.2009
Сообщений: 261
Провел на форуме:
4435957
Репутация:
539
|
|
Сообщение от stepashka_
HakaR в uses что прописать?
PHP код:
uses RegExpr;
...
var
result, captcha_sid: string;
postdata: tstringlist;
RegExp: TRegExpr;
ms: tmemorystream;
begin
postdata := tstringlist.create;
RegExp := TRegExpr.Create;
ms := tmemorystream.Create;
...
postdata.Add('op=a_login_attempt');
result := fr.http.Post('http://vkontakte.ru/login.php', postdata);
if Pos('captcha_sid', result) <> 0 then
begin
RegExp.Expression := '"captcha_sid":"(.+?)","';
RegExp.Exec(result);
captcha_sid := RegExp.Match[1];
(* Грузим капчу *)
fr.http.Get('http://vkontakte.ru/captcha.php?sid=' + captcha_sid, ms);
ms.SaveToFile('captcha_temp.jpeg');
fr.image1.Picture.LoadFromFile('captcha_temp.jpeg');
end;
...
ms.free;
RegExp.free;
postdata.free;
end;
потому что бессмысленно сохранять в файл, чтобы тут же из файла загрузить :-D
Мне так удобнее
Последний раз редактировалось HakaR; 04.05.2010 в 15:26..
|
|
|
|
04.05.2010, 16:22
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344
Репутация:
259
|
|
Сообщение от Flair
Язык pascal. На счет массива хз.
Но нужно по премеру этой программы
ну держи, коли так:
PHP код:
program mashini1;
type
mashini=record
marka:string;
god:integer;
color:string;
nomer:string;
end;
var zap: array [1..25] of mashini;
a,s,i,j,x1:integer;
x2,x3,x4:string;
begin
write('kolichestvo=');
readln(a);
for i:=1 to a do
begin
writeln('vvedite marku');
readln(zap[i].marka);
writeln('vvedite god');
readln(zap[i].god);
writeln('vvedite cvet');
readln(zap[i].color);
writeln('vvedite nomer');
readln(zap[i].nomer);
end;
writeln('mashini chernogo cveta');
writeln('marka ',' god ',' nomer ');
for i:=1 to a do begin
if zap[i].color='black' then
begin
write(zap[i].marka:5,' ');
write(zap[i].god:4, ' ');
write(zap[i].nomer:6,' ');
writeln;
end;
end;
writeln('nomer na N');
writeln('marka ',' god ',' cvet ',' nomer ');
for i:=1 to a do
begin
if copy(zap[i].nomer,1,1)='m' then
begin
write(zap[i].marka:5,' ');
write(zap[i].god:4, ' ');
write(zap[i].color:5,' ');
write(zap[i].nomer:6,' ');
writeln;
end;
end;
for i:=1 to a-1 do
for j:=i+1 to a do
if zap[i].god>zap[j].god then
begin
x1:=zap[i].god;
x2:=zap[i].marka;
x3:=zap[i].color;
x4:=zap[i].nomer;
zap[i].god:=zap[j].god;
zap[i].marka:=zap[j].marka;
zap[i].color:=zap[j].color;
zap[i].nomer:=zap[j].nomer;
zap[j].god:=x1;
zap[j].marka:=x2;
zap[j].color:=x3;
zap[j].nomer:=x4;
end;
writeln;
writeln('po vozrastaniju goda vipuska');
writeln('marka ',' god ',' cvet ',' nomer ');
for i:=1 to a do
begin
write(zap[i].marka:5,' ');
write(zap[i].god:4, ' ');
write(zap[i].color:5,' ');
write(zap[i].nomer:6,' ');
writeln;
end;
readln;
end.
я молодец, правда? 
кстати, писал в блокнотике, так что на работоспособность не проверял... будут ошибки сообщишь))
Последний раз редактировалось EndLeSSDre@M; 04.05.2010 в 16:26..
|
|
|
|
04.05.2010, 17:59
|
|
Участник форума
Регистрация: 23.07.2009
Сообщений: 261
Провел на форуме:
4435957
Репутация:
539
|
|
Есть какой нибудь компонент для дельфи, что бы из png конвертировать в jpeg|bmp ?
Просто какая то капча тупая попалась, не грузится в дельфи и все...
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
