Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2009-09-06 15:15:01 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 16:17:46
карма: 0

0
Ответов: 373
Рейтинг: 108
#2: 2009-09-06 16:39:54 ЛС | профиль | цитата
С таким Tcp клиентом никак.
.имхо.
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#3: 2009-09-19 19:20:36 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 16:17:46
карма: 0

0
Разработчик
Ответов: 26209
Рейтинг: 2138
#4: 2009-09-19 23:10:19 ЛС | профиль | цитата
Vlad.- писал(а):
С таким Tcp клиентом никак

И кто такое сказал Млин... Заставили меня подумать, ну не поверил я в такое утверждение, хоть ты лопни

-- предыдущие релизы удвлены --

------------ Дoбавленo в 01.02:
Короткий, оптимизированный по количеству компонентов, вариант



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

2
Голосовали:Konst, Vlad.-
Гость
Ответов: 17029
Рейтинг: 0
#5: 2009-09-21 07:32:54 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 16:17:47
карма: 0

0
Разработчик
Ответов: 26209
Рейтинг: 2138
#6: 2009-09-21 08:26:14 ЛС | профиль | цитата
dynamic-95-188-183-224.pp писал(а):
а откуда ты взял ?

Из схемы в начале топика. А вот откуда он его взял, понятия не имею
карма: 22

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