Вверх ↑
Разработчик
Ответов: 26061
Рейтинг: 2120
#1: 2017-04-04 14:21:31 ЛС | профиль | цитата
Iliya писал(а):
Помогите пожалуйста перевести картинку с диска в BASE64...


Схема


Add(MainForm,2953706,105,161)
{
Width=489
Position=1
}
Add(ODialog,6607378,161,203)
{
Filter="All Image Files|*.bmp;*.gif;*.ico;*wmf;*.emf;*.tif;*.png;*.jpg;*.jpeg|BMP (*.bmp)|*.bmp|JPG (*.jpg, *.jpeg)|*.jpg;*.jpeg|GIF (*.gif)|*.gif|TIFF (*.tif)|*.tif|PNG (*.png)|*.png|ICO (*.ico)|*.ico|EMF (*.emf)|*.emf|WMF (*.wmf)|*.wmf|All files (*.*)|*.*"
FileName=""
link(onExecute,9459066:doEvent1,[])
}
Add(Button,606307,105,203)
{
Left=205
Top=230
TabOrder=-1
Caption="Load"
link(onClick,6607378:doExecute,[])
}
Add(Memo,3710708,420,182)
{
Left=10
Top=5
Width=455
Height=215
ScrollBars=2
}
Add(StreamConvertor,5744430,301,203)
{
Mode=6
Point(Data)
link(onResult,7947916:doCharset,[])
}
Add(Charset,7947916,357,203)
{
Type=5
link(onCharset,3710708:doText,[])
}
Add(FileStream,13114923,245,203)
{
link(onLoad,5744430:doConvert,[])
}
Add(Hub,9459066,210,203)
{
link(onEvent1,13114923:doOpen,[])
link(onEvent2,13114923:doClose,[])
}

карма: 22

1
Голосовали:Iliya