Вверх ↑
Этот топик читают: Гость
Ответов: 5446
Рейтинг: 323
#16: 2010-04-03 10:47:04 ЛС | профиль | цитата
mmmmm, а теперь открой RFC описывающий HTTP/1.1 и открой для себя изумительный факт: заголовок и тело ответа разделяются двойным символом новой строки.
карма: 1

0
Ответов: 305
Рейтинг: 4
#17: 2010-04-03 13:53:51 ЛС | профиль | цитата
И на что ты намикаеш, StrPart?
карма: 0

0
Ответов: 1161
Рейтинг: 160
#18: 2010-04-03 14:10:17 ЛС | профиль | цитата
В одиночку StrPart такое не осилит. Тут либо с заменой двойного символа новой строки на другой символ и потом SrtPart, или какой-либо другой, более изощренный способ
карма: 0

0
Ответов: 5446
Рейтинг: 323
#19: 2010-04-03 15:40:56 ЛС | профиль | цитата
LainX, так как у нас используются паскалевские строки, то можно всё в StrList пихать, а потом (по закрытии соединения) искать пустую строку, и все до неё - удалять. А потом с помощью ArrayEnum собрать всё обратно. Через Text вроде нехорошо - "левые" символы могут появиться.
карма: 1

0
Ответов: 305
Рейтинг: 4
#20: 2010-04-04 01:38:20 ЛС | профиль | цитата
Я из StrList удалял с помощью точки doDelete (удаляет строку из списка по индексу) а затем сохранял точкой doSave. Файл весил 0 байт.
iarspider писал(а):
искать пустую строку, и все до неё - удалять

Мне вообще кажется что после такого вмешательства картинка не получится, но хотя тебе лучше знать
iarspider писал(а):
А потом с помощью ArrayEnum собрать всё обратно.

Что значит "собрать" ?
карма: 0

0
Ответов: 305
Рейтинг: 4
#21: 2010-04-09 17:07:20 ЛС | профиль | цитата
А может попробовать МТ потоки?
карма: 0

0
Разработчик
Ответов: 4698
Рейтинг: 426
#22: 2010-04-09 22:03:05 ЛС | профиль | цитата
MT-потоки
карма: 10
0
Ответов: 305
Рейтинг: 4
#23: 2010-04-14 21:43:47 ЛС | профиль | цитата
Да вроде правильно всё сделал, а не получается
code_17789.txt

------------ Дoбавленo в 21.43:
[offtop]Что мне нужно сделать, чтобы мне помогли? Вроде от всех ничем не отличаюсь[/offtop]
карма: 0

0
файлы: 1code_17789.txt [3.7KB] [123]
Ответов: 4641
Рейтинг: 334
#24: 2010-04-14 23:15:19 ЛС | профиль | цитата
mmmmm писал(а):
Что мне нужно сделать, чтобы мне помогли?

1. Сделать схему согласно рекомендациям Рекомендации построения схем HiAsm
2. Толком объяснить что это и для чего. Как должно работать итд.
3. Предоставить возможность другим пользователям проверить работоспособность.
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 305
Рейтинг: 4
#25: 2010-04-14 23:53:12 ЛС | профиль | цитата
1. Вроде как понятно code_17791.txt
2. При нажатии кнопки "Получить изображение" получала изображение. Как справлюсь с этой проблемой, сделаю что то вроде этого
Скрин
только на этом домене www.e-mail.ua 3. Код вставил
карма: 0

0
файлы: 1code_17791.txt [3.5KB] [113]
Ответов: 4641
Рейтинг: 334
#26: 2010-04-15 01:16:48 ЛС | профиль | цитата
mmmmm писал(а):
При нажатии кнопки "Получить изображение" получала изображение.

какое изображение и где оно лежит?
------------ Дoбавленo в 01.16:
вот схема. скажи что нибудь появляется в Мемо?

Add(MainForm,13389489,77,119)
{
Width=522
Height=298
link(onCreate,11213725:doEvent1,[])
}
Add(TCP_Client,621424,182,133)
{
Port=80
IP="212.26.141.102"
link(onRead,1059172:doText,[])
link(Data,4326318:Text,[])
}
Add(Hub,11213725,133,133)
{
OutCount=3
link(onEvent1,621424:doOpen,[])
link(onEvent2,621424:doSend,[(168,146)(168,153)])
}
Add(StrList,4326318,189,42)
{
Strings=#27:GET /passport/reg/ HTTP/1.1|74:User-Agent: Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.2.15 Version/10.01|19:Host: www.e-mail.ua|17:Accept: text/html|30:Referer: http://www.e-mail.ua/|21:Cookie: euagusi=; b=b|0:|
}
Add(Memo,1059172,252,112)
{
Left=55
Top=10
Width=370
Height=210
ScrollBars=3
}


карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 305
Рейтинг: 4
#27: 2010-04-15 01:48:41 ЛС | профиль | цитата
Да. Вот:
ion value="189">Тувалу<option value="191">Туркменистан<option value="192">РўСѓСЂРєСЃ Рё Кейкос<option value="193">Турция<option value="143">Панама<option value="142">Пакистан<option value="144">Папуа Новая Гвинея<option value="145">Парагвай<option value="146">Перу<option value="147">Питкэрн Рѕ-РІ<option value="148">ПольСР°<option value="149">Португалия<option value="206">Херд Рё Мак Дональнд Рѕ-РІР°<option value="207">Хорватия</select> </td>
Вот так схема по понятней сделанна:



Make(delphi)
ver(4.03 build 181)
Add(MainForm,13389489,224,210)
{
Width=522
Height=170
link(onCreate,11213725:doEvent1,[])
}
Add(TCP_Client,621424,329,224)
{
Port=80
IP="212.26.141.102"
link(onRead,10640218:doEvent1,[])
link(Data,4326318:Text,[])
}
Add(Hub,11213725,280,224)
{
OutCount=3
link(onEvent1,621424:doOpen,[])
link(onEvent2,621424:doSend,[(315,237)(315,244)])
}
Add(StrList,4326318,336,133)
{
Strings=#27:GET /passport/reg/ HTTP/1.1|74:User-Agent: Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.2.15 Version/10.01|19:Host: www.e-mail.ua|17:Accept: text/html|30:Referer: http://www.e-mail.ua/|21:Cookie: euagusi=; b=b|0:|
}
Add(Edit,2585630,476,343)
{
Left=205
Top=10
Width=200
Text=""
}
Add(Label,12639982,721,91)
{
Left=410
Top=15
Width=28
Height=17
Caption="Куки"
}
Add(StrList,16369361,420,217)
{
link(onChange,9776869:doEvent1,[])
}
Add(BlockFind,8875233,420,343)
{
IncludeBlock=1
StartBlock="Set-Cookie: cchc="
EndBlock=";"
link(onSearch,2585630:doText,[])
link(Text,11837392:Var2,[])
}
Add(Button,6686716,210,511)
{
Left=10
Top=90
Width=185
Caption="Получить изображение"
link(onClick,4895700:doReplace,[])
}
Add(StrList,8814451,266,448)
{
Strings=#43:GET /passport/code/?checkidx=ddddd HTTP/1.1|74:User-Agent: Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.2.15 Version/10.01|19:Host: www.e-mail.ua|17:Accept: image/gif|43:Referer: http://www.e-mail.ua/passport/reg/|33:Cookie: cchc=88888; euagusi=; b=b|19:Cookie2: $Version=1|12:headers: off|
}
Add(Hub,10640218,378,224)
{
link(onEvent1,16369361:doClear,[])
link(onEvent2,16369361:doAdd,[(410,237)(410,223)])
}
Add(Replace,4895700,266,511)
{
SubStr="88888"
link(onReplace,510952:doEvent1,[])
link(Str,8814451:Text,[])
link(Dest,2585630:Text,[(286,498)(482,498)])
}
Add(BlockFind,9541570,546,343)
{
IncludeBlock=1
StartBlock="checkidx="
EndBlock="""
link(onSearch,11300063:doText,[])
link(Text,11837392:Var3,[(552,299)])
}
Add(Edit,11300063,609,343)
{
Left=205
Top=30
Width=200
Text=""
}
Add(StrList,6108315,357,504)
{
link(onChange,13593708:doReplace,[(401,510)(401,559)(345,559)(345,573)])
}
Add(Hub,510952,315,511)
{
link(onEvent1,6108315:doClear,[])
link(onEvent2,6108315:doAdd,[(343,524)(343,510)])
}
Add(Replace,13593708,357,567)
{
SubStr="ddddd"
link(onReplace,4554409:doEvent1,[])
link(Str,6108315:Text,[])
link(Dest,11300063:Text,[(377,554)(615,554)])
}
Add(StrList,3682508,427,560)
{
link(onChange,2737560:doEvent1,[])
}
Add(TCP_Client,12643149,567,560)
{
Port=80
IP="212.26.141.102"
DataType=3
link(onRead,16700377:doOpen,[])
link(Data,3682508:Text,[(580,540)(506,540)(506,617)(433,617)])
}
Add(Hub,2737560,518,560)
{
link(onEvent1,12643149:doOpen,[])
link(onEvent2,12643149:doSend,[(539,573)(539,580)])
}
Add(Flash,13735017,756,560)
{
Left=10
Top=5
Width=185
Height=80
}
Add(FileStream,16700377,630,560)
{
Point(doCopyFromStream)
link(onLoad,1967056:doGet,[])
}
Add(GetDataEx,11837392,420,294)
{
link(Data,16369361:Text,[])
}
Add(Hub,9776869,476,217)
{
link(onEvent1,9541570:doSearch,[(522,223)(522,349)])
link(onEvent2,8875233:doSearch,[(502,230)(502,290)(408,290)(408,349)])
}
Add(MT_Get,1967056,686,560)
{
link(onData,13735017:doPlay,[])
}
Add(Hub,4554409,399,567)
{
link(onEvent1,3682508:doClear,[])
link(onEvent2,3682508:doAdd,[(420,580)(420,566)])
}
Add(Label,9104165,770,91)
{
Left=410
Top=35
Width=90
Height=17
Caption="Sid изображения"
}
Add(PointHint,11262402,238,448)
{
Info=#25:GET запрос на изображение|
Font=[MS Sans Serif,14,1,16711935,1]
Transparent=0
Width=267
Height=186
}
Add(PointHint,7481141,616,455)
{
Info=#22:Полученное изображение|
Font=[MS Sans Serif,14,1,16711935,1]
Transparent=0
Width=232
Height=186
}
Add(PointHint,6359534,280,119)
{
Info=#15:Загрузка Cookie|
Font=[MS Sans Serif,14,1,16711935,1]
Transparent=0
Width=407
Height=277
}

какое изображение и где оно лежит?

Изображение из TCP_Client из точки onRead
карма: 0

0
Ответов: 294
Рейтинг: 64
#28: 2010-04-15 03:15:18 ЛС | профиль | цитата
mmmmm писал(а):
Изображение из TCP_Client из точки onRead

Копать примерно в таком направлении, только вот "режет" картинку... наверное спотыкается о нечитабельные символы.

Add(MainForm,9089047,63,112)
{
Width=289
Height=178
Position=1
}
Add(Button,5900693,63,175)
{
Left=5
Top=5
Caption="1"
link(onClick,11213725:doEvent1,[])
}
Add(TCP_Client,621424,133,175)
{
Port=80
IP="212.26.141.102"
link(onRead,10640218:doEvent1,[])
link(Data,4326318:Text,[])
}
Add(Hub,11213725,105,175)
{
link(onEvent1,621424:doOpen,[])
link(onEvent2,621424:doSend,[(126,188)(126,195)])
}
Add(StrList,4326318,140,112)
{
Strings=#27:GET /passport/reg/ HTTP/1.1|74:User-Agent: Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.2.15 Version/10.01|19:Host: www.e-mail.ua|17:Accept: text/html|30:Referer: http://www.e-mail.ua/|21:Cookie: euagusi=; b=b|0:|0:|
}
Add(Edit,2585630,336,217)
{
Left=65
Top=5
Width=200
Text=""
}
Add(BlockFind,8875233,294,217)
{
IncludeBlock=1
StartBlock="Set-Cookie: cchc="
EndBlock=";"
link(onSearch,2585630:doText,[])
}
Add(Button,6686716,210,301)
{
Left=5
Top=25
Caption="2"
link(onClick,13195805:doString,[])
}
Add(Hub,10640218,175,175)
{
link(onEvent1,9541570:doSearch,[])
link(onEvent2,8875233:doSearch,[(209,188)(209,223)])
}
Add(BlockFind,9541570,217,175)
{
IncludeBlock=1
StartBlock="checkidx="
EndBlock="""
link(onSearch,11300063:doText,[])
}
Add(Edit,11300063,259,175)
{
Left=65
Top=25
Width=200
Text=""
}
Add(TCP_Client,12643149,343,301)
{
Port=80
IP="212.26.141.102"
link(onRead,5055782:doCopy,[])
}
Add(Hub,2737560,301,301)
{
link(onEvent1,12643149:doOpen,[])
link(onEvent2,12643149:doSend,[(326,314)(326,321)])
}
Add(Image,8419652,539,301)
{
Left=85
Top=50
Width=180
Height=80
}
Add(Gif,15477033,490,294)
{
DrawSource=2
link(onDraw,8419652:doLoad,[])
}
Add(FormatStr,13195805,259,301)
{
Mask="GET /passport/code/?checkidx=%1 HTTP/1.1
Host: www.e-mail.ua
Referer: http://www.e-mail.ua/passport/reg/
Cookie: cchc=%2; euagusi=; b=b
Cookie2: $Version=1

"
Point(FString)
link(onFString,2737560:doEvent1,[])
link(Str1,11300063:Text,[])
link(Str2,2585630:Text,[(272,261)(342,261)])
}
Add(Convertor,6203429,441,301)
{
Mode=12
link(onResult,15477033:doLoadFromStream,[])
}
Add(Copy,5055782,392,301)
{
Position=184
Count=50000
link(onCopy,6203429:doConvert,[])
}



карма: 0

1
Голосовали:mmmmm
Разработчик
Ответов: 26324
Рейтинг: 2148
#29: 2010-04-15 03:27:28 ЛС | профиль | цитата
Quest писал(а):
только вот "режет" картинку...

Накопитель потока ставить надо, чтобы не резало. Приводил я тут эту схему с накопителем потока
------------ Дoбавленo в 03.27:
Вот эта схема



Add(MainForm,3781812,126,231)
{
Width=423
Height=285
Caption="Get_HTTP_Picture"
Position=1
Point(onClose)
}
Add(TCP_Client,15429759,203,287)
{
@Color=14474240
Port=80
IP="77.222.142.11"
link(onRead,1462634:doSearch,[])
link(onConnect,13121124:doEvent1,[])
link(onDisconnect,11230855:doEvent1,[(243,307)(243,321)])
link(Data,5823448:Text,[])
}
Add(Button,4736585,126,287)
{
Left=165
Top=220
TabOrder=-1
Caption="Get"
link(onClick,15429759:doOpen,[])
}
Add(LED,4698746,294,294)
{
@Color=14474240
Left=230
Top=218
}
Add(Image,3627320,602,315)
{
@Color=16757169
Left=85
Top=115
Width=240
Height=100
}
Add(Jpeg,11574856,553,315)
{
@Color=16757169
Point(doLoadFromStream)
Point(doBitmap)
Point(Stream)
link(onBitmap,3627320:doLoad,[])
link(Stream,10146094:Var3,[(559,275)])
}
Add(BlockFind,1462634,350,287)
{
@Color=9360639
Delete=0
StartBlock="HTTP"
EndBlock="13101310"
link(onEndSearch,10572300:doConvert,[(390,300)(390,293)])
}
Add(Convertor,10572300,399,287)
{
@Color=9360639
Mode=12
link(onResult,13112055:doCopy,[])
}
Add(StreamCopy,13112055,441,287)
{
@Color=9360639
Count=-1
link(Dest,10146094:Var2,[])
}
Add(MemoryStream,2954231,441,231)
{
@Color=9360639
Point(doPosition)
}
Add(Hub,10351640,518,322)
{
@Color=16757169
OutCount=3
link(onEvent1,2954231:doPosition,[(540,328)(540,223)(429,223)(429,251)])
link(onEvent2,11574856:doLoadFromStream,[])
link(onEvent3,11574856:doBitmap,[])
}
Add(GetDataEx,10146094,441,270)
{
link(Data,2954231:Stream,[])
}
Add(InfoTip,14958065,336,189)
{
Info=#0:|17:Накопитель потока|
Font=[MS Sans Serif,8,1,0,1]
Frame=3
Width=162
Height=172
}
Add(Hub,13121124,252,294)
{
@Color=14474240
link(onEvent1,4698746:doOn,[(285,300)(285,314)])
link(onEvent2,15429759:doSend,[(275,307)(275,340)(190,340)(190,307)])
}
Add(Memo,5823448,210,217)
{
@Color=14474240
Left=5
Top=5
Width=405
Height=105
Strings=#57:GET http://dle.net.ua/engine/modules/antibot.php HTTP/1.1|16:Host: dle.net.ua|142:User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.7) Gecko/2009021910 MRA 5.4 (build 02647) Firefox/3.0.7 (.NET CLR 3.5.30729)|15:Keep-Alive: 300|22:Connection: keep-alive|48:Referer: http://dle.net.ua/index.php?do=register|0:|
}
Add(InfoTip,7341891,504,189)
{
Info=#0:|32:Преобразование потока в картинку|
Font=[MS Sans Serif,8,1,0,1]
Frame=3
Width=155
Height=172
}
Add(Hub,11230855,252,315)
{
@Color=14474240
link(onEvent1,4698746:doOff,[(280,321)(280,307)])
link(onEvent2,10351640:doEvent1,[])
}

карма: 22

1
Голосовали:mmmmm
Ответов: 305
Рейтинг: 4
#30: 2010-04-15 15:17:37 ЛС | профиль | цитата
Да, именно то, что нужно. Спасибо всем
карма: 0

0
30
Сообщение
...
Прикрепленные файлы
(файлы не залиты)