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,[]) }
|