Вверх ↑
Этот топик читают: Гость
Ответов: 184
Рейтинг: 0
#31: 2016-11-20 14:31:13 ЛС | профиль | цитата
[spoiler=Схема]
Add(MainForm,11466137,175,203)
{
Width=640
Height=653
Caption="Encode images in base64"
}
Add(Button,9424194,175,147)
{
Left=55
Top=10
Width=130
Height=55
Caption="Открыть файл и\r\nкодировать в\r\nBASE64"
link(onClick,2484627:doExecute,[])
}
Add(StreamConvertor,11798362,357,154)
{
Mode=6
link(onResult,6356649:doCharset,[])
}
Add(Charset,6356649,406,154)
{
Type=5
link(onCharset,13163268:doEnum,[])
}
Add(ODialog,2484627,224,147)
{
Filter="Рисунки|*.gif;*.png;*.bmp;*,jpg"
link(onExecute,8909175:doEvent1,[])
}
Add(FileStream,12129419,308,154)
{
link(onLoad,11798362:doConvert,[])
}
Add(Hub,8909175,273,147)
{
OutCount=5
link(onEvent1,3869885:doClear,[(298,153)(298,146)(494,146)(494,167)])
link(onEvent2,12129419:doOpen,[])
link(onEvent3,12129419:doClose,[])
link(onEvent5,9898295:doPart,[(298,181)(298,293)])
}
Add(Str_Enum,13163268,455,154)
{
Delimiter=""
Step=76
OnlyDivGroup=1
link(onEnum,3869885:doAdd,[])
}
Add(HilightMemo,3914806,679,273)
{
Left=15
Top=75
Width=595
Height=240
Font=[Courier New,8,0,0,1]
HilightFont=[Courier New,8,0,0,1]
ReadOnly=0
AutoFocus=1
}
Add(CheckBox,13140747,469,217)
{
Left=225
Top=25
Width=145
Caption="Заключить в тег <img> "
link(onCheck,7696315:doWork1,[(508,223)(508,209)(438,209)])
}
Add(FormatStr,7362887,539,294)
{
DataCount=4
Mask="<img src="data:image/%1;base64,\r\n%2">"
link(onFString,13084304:doEvent2,[])
link(Str1,9898295:Part,[(545,277)(513,277)(513,334)(363,334)])
}
Add(FilePartElm,9898295,357,287)
{
Mode=4
Point(Part)
link(onPart,7696315:doWork2,[])
}
Add(StrList,3869885,532,154)
{
}
Add(IndexToChanel,11882877,469,287)
{
Point(Index)
Point(Data)
link(onEvent1,13084304:doEvent1,[])
link(onEvent2,7362887:doString,[])
link(Index,13140747:Checked,[])
link(Data,3869885:Text,[(482,257)(538,257)])
}
Add(HubEx,7696315,434,287)
{
link(onEvent,11882877:doEvent,[])
}
Add(WebBrowser,14400621,630,259)
{
Left=15
Top=330
Width=595
Height=275
Point(doFromText)
}
Add(Hub,13084304,595,287)
{
InCount=2
link(onEvent1,14400621:doFromText,[])
link(onEvent2,3914806:doText,[])
}
Add(StyleXP,6850144,175,252)
{
}
Add(Button,366583,616,343)
{
Left=405
Top=15
Width=130
Height=50
Caption="Копировать в буфер"
link(onClick,2103980:doData,[])
}
Add(Clipboard,4801570,735,343)
{
}
Add(DoData,2103980,679,343)
{
link(onEventData,4801570:doPutText,[])
link(Data,3914806:Text,[])
}
[/spoiler]
Редактировалось 2 раз(а), последний 2016-11-20 14:34:54
карма: 0

0
Ответов: 824
Рейтинг: 138
#32: 2016-11-20 14:55:41 ЛС | профиль | цитата
A_S_X, У меня эта схема есть, и все прорисовывается полностью.
карма: 1

0
Ответов: 184
Рейтинг: 0
#33: 2016-11-20 19:57:40 ЛС | профиль | цитата
sashaoli, перевел картинку в gif, стало прорисовываться, видимо bmp слишком большого объема

--- Добавлено в 2016-11-20 19:58:08

Спасибо за помощь!!!!!!!!!

Редактировалось 2 раз(а), последний 2016-11-20 19:59:18
карма: 0

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