Странное поведение function Pos - Работа с сетью в Delphi

bulldog5293 · 20.11.2010, 21:57

Получаю сайт, он передаёт покет который нада тоже принять, на одном из сайтов делал так

Код:

function PosSrc(ss: String): String;
var
	B, E: Integer;
begin
	B:= Pos('SRC="', ss)+5;
	E:= PosEx('"', ss, B);
	Result:= Copy(ss, B, E-B);
end;

procedure BUX.Execute;
var
Otvet: String;
Otvet1: String;
Ur: String;
begin
Otvet:= HTTP_BUX.Get('http://' + сайт);
Ur:= PosSrc(Otvet);
Otvet1:= HTTP_BUX.Get('http://' + сайт+пакет);

Такой покет нормально обрабатывает

PHP код:


			
<html>

<head>

<meta http-equiv="Pragma" content="no-cache">

<meta http-equiv="Expires" content="-1">

<title>///</title>

<FRAMESET ROWS="35px,30px,90%,70px">

<FRAME marginwidth="0" marginheight="0" name="frminfo" scrolling="no" noresize NAME="a" SRC="ips.php">//это ловит

</FRAMESET>

</head>

</html>

а такой не может

PHP код:


			
<html>

<head>

<title>///</title>

</head>

<FRAMESET ROWS="90,*" FRAMEBORDER="0" FRAMESPACING="0" BORDER="0">

<frame marginwidth="0" marginheight="0" name="frm" scrolling="no" noresize src="cgho.php">//это не ловит

</frameset>

</html>

Почему? Или раздница лиш в длине слова?

DomiNick · 21.11.2010, 01:47

Что есть "HTTP_BUX"?

Попробуйте добавить AnsiUpperCase()...

И у вас не учитывается что значение параметра "src" может быть без кавычек...

maxionans · 21.11.2010, 08:25

да нет, не в кавычка дело, а в регистре. Pos чувствительна к регистру, поэтому SRC и src - это разные строки для неё. могу предложить такое решение:

Код:

function PosSrc(ss: String): String;
var
	B, E: Integer;
	TmpStr : Stirng;
begin
	TmpStr := AnsiLowerCase( ss );
	B:= Pos('src="', TmpStr)+5;
	E:= PosEx('"', ss, B);
	Result:= Copy(ss, B, E-B);
end;

bulldog5293 · 21.11.2010, 09:31

maxionas cпс, помогло

20.11.2010, 21:57	#1
bulldog5293 Форумчанин Регистрация: 13.05.2010 Сообщений: 670	Странное поведение function Pos Получаю сайт, он передаёт покет который нада тоже принять, на одном из сайтов делал так Код: `function PosSrc(ss: String): String; var B, E: Integer; begin B:= Pos('SRC="', ss)+5; E:= PosEx('"', ss, B); Result:= Copy(ss, B, E-B); end; procedure BUX.Execute; var Otvet: String; Otvet1: String; Ur: String; begin Otvet:= HTTP_BUX.Get('http://' + сайт); Ur:= PosSrc(Otvet); Otvet1:= HTTP_BUX.Get('http://' + сайт+пакет);` Такой покет нормально обрабатывает PHP код: `<html> <head> <meta http-equiv="Pragma" content="no-cache"> <meta http-equiv="Expires" content="-1"> <title>///</title> <FRAMESET ROWS="35px,30px,90%,70px"> <FRAME marginwidth="0" marginheight="0" name="frminfo" scrolling="no" noresize NAME="a" SRC="ips.php">//это ловит </FRAMESET> </head> </html>` а такой не может PHP код: `<html> <head> <title>///</title> </head> <FRAMESET ROWS="90,*" FRAMEBORDER="0" FRAMESPACING="0" BORDER="0"> <frame marginwidth="0" marginheight="0" name="frm" scrolling="no" noresize src="cgho.php">//это не ловит </frameset> </html>` Почему? Или раздница лиш в длине слова?

21.11.2010, 01:47	#2
DomiNick Студент, не Старожил Регистрация: 29.01.2009 Сообщений: 2,067	Что есть "HTTP_BUX"? Попробуйте добавить AnsiUpperCase()... И у вас не учитывается что значение параметра "src" может быть без кавычек... I am the First of Cyber Evolution... I am the First to Program your Future...

21.11.2010, 08:25	#3
maxionans Форумчанин Регистрация: 02.01.2010 Сообщений: 254	да нет, не в кавычка дело, а в регистре. Pos чувствительна к регистру, поэтому SRC и src - это разные строки для неё. могу предложить такое решение: Код: `function PosSrc(ss: String): String; var B, E: Integer; TmpStr : Stirng; begin TmpStr := AnsiLowerCase( ss ); B:= Pos('src="', TmpStr)+5; E:= PosEx('"', ss, B); Result:= Copy(ss, B, E-B); end;`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Странное поведение gets	alex_alpha	Общие вопросы C/C++	3	27.03.2010 18:21
Странное поведение null	Vitalyk	JavaScript, Ajax	6	13.02.2010 15:22
Странное поведение TTreeView	mutabor	Компоненты Delphi	1	01.05.2009 05:17
Странное поведение базы	yulia	БД в Delphi	7	22.04.2009 07:15
Странное поведение DLL	Yurk@	Компоненты Delphi	4	01.02.2009 01:23

21.11.2010, 09:31	#4
bulldog5293 Форумчанин Регистрация: 13.05.2010 Сообщений: 670	maxionas cпс, помогло