Вверх ↑
Этот топик читают: Гость
Ответов: 824
Рейтинг: 138
#16: 2016-11-14 21:08:09 ЛС | профиль | цитата
Храни в программе, при формировании отчета - сохраняй картинку на диск..

--- Добавлено в 2016-11-14 21:38:19

Оказывается можно и вот так, без сохранения на диск.
Можно внедрить картинку сразу в HTML...
Картинка в "ХТМЛ"


Add(MainForm,1350592,280,196)
{
Width=1003
Height=322
Caption="Библиотека 7 школа"
BorderStyle=1
Position=1
link(onCreate,1412200:doEnum,[])
}
Add(Button,3908359,273,280)
{
Left=20
Top=250
Width=95
Caption="Сохранить"
link(onClick,4648286:doExecute,[])
}
Add(ArrayEnum,1412200,371,210)
{
link(onItem,9459787:doMTString,[])
link(onEndEnum,15435863:doColAction,[(424,223)(424,244)])
link(Array,5483496:Array,[])
}
Add(StrList,5483496,357,140)
{
Strings=#41:Учебник 9 класс;000025;Иванов;01.09.2013 |40:Учебник 7 класс;000074;Петров;01.09.2013|41:Учебник 10 класс;000213;Пупкин;01.09.2013|42:Учебник 9 класс;000025;Сидоров;01.09.2013 |41:Учебник 7 класс;000074;Абрамов;01.09.2013|44:Учебник 10 класс;000213;Филоненко;01.09.2013|45:Учебник 9 класс;000025;Слободянюк;01.09.2013 |42:Учебник 7 класс;000074;Васильев;01.09.2013|42:Учебник 10 класс;000213;Хоменко;01.09.2013|41:Учебник 9 класс;000025;Усатюк;01.09.2013 |42:Учебник 7 класс;000074;Медведев;01.09.2013|40:Учебник 10 класс;000213;Орлов;01.09.2013|
Point(doInsert)
}
Add(MTStrTbl,11546581,497,154)
{
Left=15
Top=15
Width=450
Height=215
Name="tab"
Columns=#7:Учебник|15:Номер в журнале|6:Ученик|4:Дата|0:|0:|0:|
Grid=0
}
Add(MST_RowAction,11319082,497,196)
{
MSTControl="tab"
}
Add(MT_String,9459787,441,196)
{
link(onResult,11319082:doRowAction,[])
}
Add(MST_ColAction,15435863,497,238)
{
Action=9
MSTControl="tab"
}
Add(MST_HTML,12336260,329,378)
{
TitleText="Библиотека 7-й школы"
TitleFont=[MS Sans Serif,10,1,0,1]
HeadFont=[MS Sans Serif,10,1,0,1]
NoteText="""
MSTControl="tab"
Point(HTMLTab)
link(onTabToHTML,8924692:doString,[])
}
Add(MST_Save,16413624,497,280)
{
FileName="mycsv.csv"
SaveColProp=1
MSTControl="tab"
}
Add(Button,5902944,385,420)
{
Left=405
Top=250
Caption="Печать"
link(onClick,11234646:doPreview,[(481,426)(481,398)])
}
Add(Button,6853432,245,378)
{
Left=325
Top=250
Width=70
Caption="Просмотр"
link(onClick,12336260:doTabToHTML,[])
}
Add(WebBrowser,11234646,497,350)
{
Left=475
Top=15
Width=500
Height=215
Point(doFromText)
Point(doPrint)
Point(doPreview)
}
Add(SDialog,4648286,350,280)
{
Filter="Файлы Excel|*.csv"
link(onExecute,16413624:doSave,[])
}
Add(FormatStr,8924692,378,378)
{
Mask="<CENTER>\r\n<img src="data:image/png;base64,\r\niVBORw0KGgoAAAANSUhEUgAAAGwAAABsCAYAAACPZlfNAAAYpklEQVR42u2deXRc1X3HP2+ZfUYa\r\n7ZstyQtehGVsCxswKYSEkAAlNJg2wYEmPTQ0PqQpKVACJmUJTgIpoUBjmoUAhSZtgxPSBJJwCjSk\r\nELwIjHdZXmRbli1ZspbRrO/Nu/1jFo1mkWZGe9Cd845m0X3v3fu9v+17f/c+SQjBbJk5RZ7tglnA\r\nZsssYLNlFrBZwGbLLGCzZRawWcCmV7EAbsA6C9j0LwogvnjVRwujn1VAmgVs+hUpCo68psD0rZ1v\r\nv9m2psD0jVs+cZk79v0fE2DSDKemZED56Nyy5X093bfMWzL/lgXnLqTtwFEO7Wt9yWy2PPWH3sAb\r\ngAGEZwGbBmA12aXPyrL8zPKLzuOcZQ1oQbDYVQ7t3c/O/2smHA7/bbNPfD8Kmj4L2NSoQAWQmuzS\r\n3Va79YGLPnYxFXPqOLBzH6dOHKO6tp5Fy5fQ1dHO1tfexufxfqvZJ+5LkLQZPUpnnL3653vutDTZ\r\npW+XVJY+8NFPXUFJWRU7freVA3vepayuhH27dtD8u20UlVVxyTWXU1JV9tXzHfLj6y9aVT7TnZGZ\r\nJGESYLq8tvyC/t6eL85bVL/+vIua8Hl13v39NnyhHq664S+orK7iZNthfrvlVzisZay4+HxMVoXd\r\n25ppbz3xG4fT9d03Os6+GlWPxixgE6gGLyg03yyM8L8uv3A5CxqW0nGsk5a9uzHZJD752c/icNgI\r\nawEAvINeXv7pz9H8goUNyyitKeXYgYPs374bSVa+srU/tHkmgjYTAJMBucku3W932jaef+lqyqpq\r\naNl5kKNH9rOk6Vwuu/paJCOEoQdxFrgZHOgDIBwO8+Zrr9PSfIDa+Yupb5hP96kOdv/hPQLewLeb\r\nfWJj1KYZs4CNj1TJN158vrNl13vfLCkr2tB0yRpUs433//A+XV3H+Nj117JizVp0bRBEmNp551C/\r\nYDGnO47Tun8P4XDEKdzz3i5e+/krlJXVsuT8ZQSCXna//S6DvZ4fllZU3v9K64muqLSJWcDG4LJ/\r\nqMx5qRYKfnnugpprGlevxNPvZ+fb7xJikPUbvkhNXT3h0CCKqnDOkkaq5tSimkzomsaZztO07t+F\r\n3zsIQEf7Kf7rh89illwsXd2I1WmhZeceuo53vqEo6mNvdXt/PRM8yOkImAwoFxVZN+i69njj6gbq\r\nFi3g5NEuWlv2U1jq5MZbb8PhtKMFPTidLhYuXkZRaQmyrMRPYhhh+nt7OXroAGe7z0TsmtfLf3z/\r\nRwz0eJi/uIGSmhLaD7dx+P0WQLpj24D2xHRXkdMNMAWQ1rjUh8xW012rLl5BYXEpB3cfor39KOd/\r\neC1XXb8eRZbQggOUVlRSO28hDqcLSUr11IUQeAc9nD55nFMnjmMIA4TMK794iZ1vbqWqZh61S+fR\r\n193F/u170ILad7Z7wndFATNmARsFrOtXNZQfP9T6YFFp4V+vuOg8hFDYs2Mf/YNnuO6vPsfqD12G\r\nMHQMzUtFzVwqqmqw2myjnjjg93O2u4uTx4+i6SEkZN7d2sxLz72Au6CChSsWo+tBDuzYg9/je7a4\r\nvPLrL7ccOzYd6azpAJgEyBcVWa8QwvjKnHlVH1uyYgl9PT72Ne9DWDT+5qsbqZ2/EBHWkAhRVTOX\r\n4tIyVJMp64vomkZf71k6O07g93kBiZMnTvO9h7+FrFlYsHwRzkIbbfsP0n64A9Vk/rN3+oIvTze7\r\nNtWAyVEV+BUkvt3YtJiqurkcP9TBiRPHKKoq5dZ7HqDAXYShB7CYoLSymsJCN5KcO0ljGGE8/f2c\r\n7T7DQN9ZhASBgMETX7+P/s4+Mae2Tpozr5Se9pPs2XkUIaR/2DqgPTadVORUAiYD0mqX8ojVZvn7\r\nFRc0YHcVcnD3Ec6c6eDCj1/ODbf8LaqqEtZ82K0qRaVl2B3OtPYq2xKxa4N4+nvp6+1BGGGQHTz/\r\n/e/y7hu/p6y0kmWNc9B8HrZtbcXn15/c2q/dFtUE4Q8iYBIgXVZTUuMbHLivqKTw5mWrFhHSJfa9\r\n14o/1M9nbv0SH7nqWiQkDM2LzW7GXVSMxTp+E8nBQICBvl4GPf1oIQ3V4uR/Xn6ZLT/4Pk6rm6am\r\nOmwmgx3NR+ns9j5jsdg2/e50X1tU0sQHCTB5tUu9Rhjhl+rPmcP8pfPo6Rygde8RTA748kOP0LB8\r\nFQgDYfiwWkwUFLpzsle52LWBgX783kG0UBBZtdGy/xBP3HsnRkDlvBW1VJbaaGlpZ+/+U8iq+ult\r\n/dqLUcDEtAKsyT5hhPadJpP6yNLzFlBSWUpbawddnaeN8rpq+e5/2kxxaVmkJ3QPFouJgoLCjPaq\r\n+/Qpdr79e1p2v0cwEKCj7QiSLFNVW4/NbmdR40pWrv0TissrMqtIw2BgoJ+g308wGEBRLZw96+fh\r\nf7iVsx1njNo5lfLihSV0nT7L9uZjhLTw3c0+8chU2bTJBqzR4bTtali1EIvFRsueNjyeHi74+BXc\r\nunETFrMZYYQJ6x6sVnNGe3V43x5e+clznD7VSWn9uZTMXYjJbMVVWoUQAk/3KfRQgJ4TrZxp28uc\r\n2rlcdcPnqF+0ZES7FvD7COsakqSiYWXzQ/fS/Mb/UlJUyorGKkIBP9t2HKN/IPAd4PaJBKbZJ6YF\r\nYF+at7juyeLSQg7ubsMQXuNTG/5O/ovPfwFFUTDCOnqwF4fDhtmSaq/Cus7Pnvkee3fvo2bpGmoW\r\nr8RkMmEymVBVFVVVkSQJIQRCCDRNIxgMcmzvNk7seYeVq1fxyZtuRs4gscFAgEHPAAgByCiWIn78\r\nw6f41Y++J0yqU1q5vBqHTeb1Nw/h94fKgTN/7IAphUVFut/nxeGSfV+4/1H7h6+4IuJchEPogV4c\r\nBS5UVU2p6Bv08Ox3vonPsLHkQ9dgs9mwWCzYbDasVitWqxWz2RwHwzAMNE0jEAjg8/no7+vj/ddf\r\nxCYF+Kvb78Fqt2e0a56BfoRhIEkKJlsxr/3mtzyz6e6gfxDLnLklDPrl73aebP/SB0HCqKyy3KZr\r\nwU/8+V2PXXzV1Vc6VVUlrPsR4UGcTldaexXWdZ566F40UzFL1l6J3W7H4XBQUFCA0+nEZrPFpSym\r\nQg3DQNf1OGher5e+vj62vvITlNBZ/mbjgxklTRgGnoF+dE0DScJsK+GXv/wNLz5yx5t6WLnw6htu\r\nWgy05dLuHz/17LgApo4HCBWlOcRBWvBJBZ602J29AtA0L4oUxFEQSSdMd5svPfcDAjg4d+2VOBwO\r\nCgsLKS4uprCwEKvViqqqyLIcByumEsPhMGazOf67LMtcePV63vrFs/z3809z7ee+kMGPlXEWuvF7\r\nBwn4/QR93dichagSH1PV8Kduf/SZY7n0z3gO/nHJ6ejsjhxZlnA8AJUkrCaB3e4ccpSTjuOHDvL+\r\nuztZ8qFrcDgcFBUVUV5eTklJCS6XK64KYzYsdiiKgiRJhMNhDMNAkiRMJhMul4uL/vRG3vrty3S0\r\nHcl4XQkJu8OFw1mQOIpCwH9m69I32aVx11TjmoSTLXDrH3waSZJFYVExZouFjL2G4JfP/4iapWuw\r\n2Ww4nU5KSkpwu93Y7fZhwMiyTGVlZRykYDCI3+8nHI6MDVVVMZlMWCwWnK4CVn38Bl75yb+NeG0Q\r\nWKwWCtxuJElm/YNPM1VAjatKTAfcPc+/OKp2VFQTejDzP7QfPUzXmbOsvewCHA4HbrebgoICrFYr\r\niqLEbVCiZxgIBAgGg3GgIhpORgiBqqoYhoHZbKbhwsv5+ROv0dl+goo5c0fuJJMJmyuism9+7MVJ\r\nUX2TChjAppuu594XtozpHLu2vkVpfQMmkwmn0xm3WclgxewWQCAQwDCGYtrY7zEbpigKqqpiNpup\r\nO3c1O9/5PR+/fv3oAWtCPPizn/0s5feHblw3KblzE5qX+OBn12VBxmY+juzfR0nNfKxWa9wbzARW\r\nMBiMe4fpOjumNmOgKYpCZf1ijrYcGPEeYsdY2zkjAAO4f9TGZLYfXR0ncZVUYrVah4EVAyARLL/f\r\nP6qEJB6yLOMuq+bMqZOj2rGRfIz7JxGsSQEM4B/X59co3+AAVrsTi8WCyWQa5rrHwNJ1nUAgkB0P\r\nlwSazVnAYH//pLdr2gMGsPGGdTnK15DDkBgQJ3OAwWAwrRrMmkzNU74ytWfGOh3pyt2fWcc3/yN7\r\nR8TmcKKHAnHJinmCsaJpGro+tCBlYGCA6urqEc952WWXsXnz5gjYfh9WhzOvdshTlJ2vTvYF7/rM\r\nOh5OBG0EE1FVOx9Pz2lYuCgOViJomqYNk66Ojo6M1zUMg3A4HCeEDcOg70wHFXPqc5rZuusz66Z0\r\nBcmUXPvOT6/LSikubGyiu/1QXJJirIUQIk7uZkWHJQAdAy4cDtN57CALGs7LWikOv++ZAdjmLFs3\r\n6hHwegtHs2ErL/4Ip1t3EQqFCIVC6LoeB07X9axsVyJYMaBi9Y/v28GKtR/O7oYjUj0ebd88WSpx\r\nhd1h2bBsZV12hGHYIKwbaJqOpoXRo381TSesGyiqPLpKnDsXt7uQQzvfpvDSK7FYLPEYStf1uGrM\r\nlJSTTqpiDH7bvmZcLifVdfUEfb1ZtWl5rR1VlTGZFMym4X9VVUZRRjds23Z2bRjwhJ4Ftk20hG0o\r\nr3KPm2hnIx1ayMu6W27n4I7/xev1xmmnUCgUt0MxQJJtXOJviUDFpLVl2+v86Y0b0EO+cbvfbMqc\r\nSgfALROtEp2KIt9SUuaaAK2cWXsYepCF557HvAULeeu/n8Pr9eL3+/H7/SkqMmbf0klTDKhgMEgw\r\nGOQPv/w3auvrWbpqDWE9MKbAOddSWW5HVeWbgcKJBOymkvICFGX8fBQhRFbdFPCd5abbH8Tfc5J3\r\nfv2feL3eFGmLOSUxcJKlKRgMEggECAQCbPvtfxEa6GL9bfcR9PVmb3zGKbtMliWqK+wAn59IG7bh\r\ninXXYbGahoQCMTTuoo0RCe91LYQWDEaykfx+gj4fAb+fUCCAFghGZpazGMDhkB+zRWPDA0/y3a/d\r\nyps/f4aLP/mX8UnJxMnJRLoqJm2J4L3z8gsE+06z4f4nQQ9krQ5j55xTXYXJYsFis2K127DYbNG/\r\nVkwWS9apePNXhfnBE8/fCjw+UYA99cK//GgD0JiLojNENMdZQFgM/3xJIJT1TfoHz1DgruaOR5/j\r\nuUfv5Vc/2MTSCy6nrqEpPieWDrCYWjz8/ju0bH+duXX1bHj4aRQZvP0dOWuEV945jCxFl4RKoEgM\r\n+5xtLF1aXYPF7ng6HwnLKadj4wtbxLXXfIKApz2ni+hakIDPg987gN/bT8A/yIFTVq795NUEBtoR\r\nYnSDLskqjoJKZMXMvua3+cUzTxDUDaoXNlKzcBkFJZVYbJHEmoBvkIHu05w8tIeTrbtw2Cz82c23\r\nsfi8NYT1ID7P6UiKdg7l1d/tZUmlF4vNid3pxuYowGp3oZosOXf6a/+3H10Pu4GMROZ11103Nrd+\r\nY+LcVq76PM18hcjR6xKGjre/A5uzjIamtTQ0raV1dzP7mt9iz+s/5cypE/HVlg5XIWXVc1my8kKu\r\nuOY+5i1dHvc6A4NdedmjiJcY1d+5zL1MFjW1cYyTj9momNHisNQ6Br6BTlSzHau9mHMamzinsYlr\r\nP//lkWNCPUTQ24Ou+cd+v1Nc1Km6sGHk3wF6yMdgyIdqsqKa7SgmO7KiIklyHFgjrKGH/OiaL74V\r\nxETHjdMWsFxHW3JQG6kf8yxFor+ZU9E0P5rmB3ompbMiGlCkJaJzjz1nEPk7VgmbmvudwRI2rh0w\r\nZQt3PsAqcek3zuAJZO71tq8VDlchQsRd+bGoxMksItHDTTiWbOrC48886tq/XjE9JWzBpcuRVSXt\r\nb64SmYDvvWnpdY3ZbgvB/EsaU9sepd7sbjO+vmNTB1g+GiwdNxe3YQknXPnoAJ5g5rMfuieVL52s\r\nOoZhZKaEE50PMfb+Gl8JyzdYFMNvPRO7MZKkustl+roOTUmdiEokzqMOIwEESGK4ZA2hNb7B9dQ5\r\nHSJ3t15AzvYu6zpxARFp60QkSEpbb8g2J345Mb5Unk4HeQtm7JgWXpeIApNFeyITokp6VkpEme0E\r\nAUwcBSn9JSZdwoZfce9XS3C4VZDkjJRSsvYXhsh9fnAsBjTZITAEQhbDRmBK1kaKWy+ntGPvxjIc\r\nbmvGto8ZoYmSsMHe45mpJC2Yhv818sJA5DGuRIZGDFdjpIKXwtakz7sfqe3TJHAWY/j/6PS/YaQM\r\n5+a/d+Iuk0fY6SYV3rzq3O7CXTbEPWZTZ0iFiwn0ASdKwsZBK6Vz6wH6ug7nfD+TUSfRrR9Bc05T\r\nCUvSiY0P944c19ztSNEjsRE7Q5ipIY2Q1I5lD3TiCRjD1W9C/xz/VtXUApapg0eKawrLJfxtzUlJ\r\nLTNrB/KMSUOGwZwLz43vhpqc5+IsceHpOTKVgXOeIpHU0iGqZ+iE5z/mjUiqSEcZCFruKUg57fn/\r\n5EmQ7oT4J/rVwa+lshZND/cN1UnTloP3FWXgEtPTNsIQCEkMi+UmSm+q+fR8PmStSAiRBRBOx9YL\r\nwfw/SeDlYqxB9PfiCoWzpw+mAFl38TJkRRm6kkisY05TB2ovXIakKsOuHbtUcYUtpU7Ehg0F1Ymt\r\niQOWFIAPZZdNNdOR7/UT6omEQDOZkxOGSAtYRnc7PsKTg9f0LnrcpTcSot8kgRPpbFjyjwnaQhjJ\r\nEiuS4+ep9BJF3vIVf6WzYYnqJZneEZkdoLR1ROZK8Q6W0gGWuQ4p8hUBXRhJUpSUtzntJGznHYUU\r\nlCoZ4xohjBS9PzyuEaN3vsgw9gWIsEBIaTy1TGjHATMyi1S6OCyN/dr1QCUFpe4RYrppKmH93UdG\r\nZjqSXkaarCkhRLTzRZI6FBk7VhgRaRVhKdWtzgRGdMDIkpT0P5l175CXmPoaqe3TJA4bm4cYV31J\r\nNmz7HQUUV1gybmiZzuHa8VU3xRWO3OrcU0xxRUFOdTJJ2GQHkXnGYSJniUyRsAxs/dnO1pwbMRl1\r\nhrzE1Nf0ZjrSjKpV3/GMyHTsv8OSxrMypoyPyzdwTuchLr+nI8J0ZFA+bY/OmWqVmH5UjcR0lFRD\r\n++Gtw8akkc/0CrBrTyttxzvybnB9bTXLl52TFzWV3k8UVKxaiiQradg7gbu8jN6u1nHzQSYvDsvA\r\ndOQqX8dOdvLFL92Rd4O/t/kxGvMALDPTEYvBRGbKdSbHYcOnV3IrkiSBEfEGB7sP5NVgRTXnTf6m\r\ntV9GQkyXAZyZyXRk5BJzBE1RxtRgWc6v/mhc4lAWzrSMw8aMV+rynSzLvLq5fPrDK3E63UOxXEI5\r\nNeBnQV0tvt7UDa8HPb3cdOd9eSWlZExzSwRt4vEan/mw7X9np7hCRsqwn4+IcXYJrczXhq1obEDq\r\n2IOrdlEE9KSZ5v0nu3EvrEIJdKXcc8exA8ydX4/I4/nbidRUYvrazm9WU1xROfLDe6YyzS1TB/eM\r\nENdEmI7xXeTttJkxRGrimdkkYzebwGYZ11E+0iL6njziwMmVsHGgOsaa5lZf7Ex7G7utFmqLXQT9\r\nqZt+tSiwoKqCgd6TeanE6UB15BU457NiNmV2fYwNNWeI+RRFQlVkhEkZ/95KNLlTs2J26jJ/h4x0\r\nLqNUGr9ez0vCpr7kx3TkvAIzeeViQl5ijqNUjAdceWUuJ+YlJrZjckVsylZg/tEsN5r+EjY+xZgF\r\nLKWsW7du1Oupo1XesmXLmG9+mDpkaBXmTAMs0zHeYI1JJWZ7olHdhdhe80T2+JlZcI2z35PUv7n0\r\nsZoL+umkLae2ShJIEpIkJ+yEM9HLV8bHdYk9cEciuo26LE+aVOVrwyTyZCliHhVICZufTMgCxUjn\r\n+j3jGkfGzYAkRZcVScO8xXyK1+uVEuQ165Nk3BwsuhokdlIZkLZs2RK66srL6Wrfl9PNhcM6oYCP\r\noH+QgM/D/rYOHIXnMNPK0SOHuaSpAqvNiSV6KEruftt7+06zffuO8k2bNvUnqI1EKiV3pyMBKDNg\r\nAcb0XF5JlpEVNZ6he/mlq4hn6aZTVcl7Mg7PYRv+fZpzjJabmIMej4qBxNEjh1EUNdqOsTnY27dv\r\nd0f7N0zkuWQhQGOU50SPdlUFsAEFgK2jo+PIv//4p/PHOlJDQTMdp44yfEmpGO6BioRUhNj7+BLX\r\nofXRwwBM833y+XP1MBIf/QHw/uEgEGQs2yX5/f4jr776qh2wRkEaBDxRsAyGHliRk0qUolLlBFyA\r\nPQpwNtZWjv6vLXrIiTfw7A+/8WtNlI1q5ONTMAl/E+1GbI4qtnwp/j7R7U7zffL74WHH0CYqIj5Y\r\nhh4d/Pjjj1+ZpIXCQADwRd/nwmEZSYD5o58RGYAZDbBklShn6dwq0cMePRRmsCc/itnQox3tjQKQ\r\n7c6Zsf5IqxIz4pKL05FDFJIItmkqKbDJIG2iHR0azf6MEqtk5XSMBthYQsZEsP/YizHGIFFkyyZJ\r\nM42E/aAXebYLZgGbLbOAzZZY+X8FVcK/VHT6ogAAAABJRU5ErkJggg==">\r\n</CENTER>\r\n<CENTER>\r\n%1\r\n</CENTER>"
link(onFString,11234646:doFromText,[])
}

Редактировалось 1 раз(а), последний 2016-11-14 21:38:19
карма: 1

0
Ответов: 184
Рейтинг: 0
#17: 2016-11-15 22:51:12 ЛС | профиль | цитата
sashaoli, а как ты картинку вставил? У меня что то не получается
карма: 0

0
Ответов: 824
Рейтинг: 138
#18: 2016-11-15 23:11:07 ЛС | профиль | цитата
A_S_X писал(а):
а как ты картинку вставил
- Внедрил в код HTML
карма: 1

0
Ответов: 184
Рейтинг: 0
#19: 2016-11-16 17:20:59 ЛС | профиль | цитата
- Внедрил в код HTML

А как его внедрять
карма: 0

0
Ответов: 824
Рейтинг: 138
#20: 2016-11-16 20:02:38 ЛС | профиль | цитата
A_S_X писал(а):
А как его внедрять
а вот так

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

Редактировалось 1 раз(а), последний 2016-11-17 00:39:21
карма: 1

0
Ответов: 1536
Рейтинг: 176
#21: 2016-11-16 21:06:24 ЛС | профиль | цитата
sashaoli писал(а):
а вот так

Предвидя вопрос об ошибке:


Add(MainForm,11466137,126,231)
{
Width=640
Height=653
Caption="Encode images in base64"
}
Add(Button,9424194,126,175)
{
Left=55
Top=10
Width=130
Height=55
Caption="Открыть файл и\r\nкодировать в\r\nBASE64"
link(onClick,2484627:doExecute,[])
}
Add(StreamConvertor,11798362,308,182)
{
Mode=6
link(onResult,6356649:doCharset,[])
}
Add(Charset,6356649,357,182)
{
Type=5
link(onCharset,13163268:doEnum,[])
}
Add(ODialog,2484627,175,175)
{
Filter="Рисунки|*.gif;*.png;*.bmp;*,jpg"
link(onExecute,8909175:doEvent1,[])
}
Add(FileStream,12129419,259,182)
{
link(onLoad,11798362:doConvert,[])
}
Add(Hub,8909175,224,175)
{
OutCount=5
link(onEvent1,7998532:doEvent1,[(249,181)(249,167)])
link(onEvent2,12129419:doOpen,[])
link(onEvent3,12129419:doClose,[])
link(onEvent5,9898295:doPart,[(249,209)(249,321)])
}
Add(Str_Enum,13163268,406,182)
{
Delimiter=""
Step=76
OnlyDivGroup=1
link(onEnum,3869885:doAdd,[])
}
Add(HilightMemo,3914806,630,301)
{
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,420,245)
{
Left=225
Top=25
Width=145
Caption="Заключить в тег <img> "
link(onCheck,7696315:doWork1,[(459,251)(459,237)(389,237)])
}
Add(FormatStr,7362887,490,322)
{
DataCount=4
Mask="<img src="data:image/%1;base64,\r\n%2">"
link(onFString,13084304:doEvent2,[])
link(Str1,9898295:Part,[(496,305)(464,305)(464,362)(314,362)])
}
Add(FilePartElm,9898295,308,315)
{
Mode=4
Point(Part)
link(onPart,7696315:doWork2,[])
}
Add(StrList,3869885,483,182)
{
}
Add(IndexToChanel,11882877,420,315)
{
Point(Index)
Point(Data)
link(onEvent1,13084304:doEvent1,[])
link(onEvent2,7362887:doString,[])
link(Index,13140747:Checked,[])
link(Data,3869885:Text,[(433,285)(489,285)])
}
Add(HubEx,7696315,385,315)
{
link(onEvent,11882877:doEvent,[])
}
Add(WebBrowser,14400621,581,287)
{
Left=15
Top=330
Width=595
Height=275
Point(doFromText)
}
Add(Hub,13084304,546,315)
{
InCount=2
link(onEvent1,14400621:doFromText,[])
link(onEvent2,3914806:doText,[])
}
Add(Img_Loader,13453601,616,161)
{
link(onLoad,7921384:doLoad,[])
}
Add(Hub,7998532,448,161)
{
OutCount=3
link(onEvent1,13453601:doLoad,[])
link(onEvent2,1847423:doString,[])
link(onEvent3,3869885:doClear,[(473,181)(473,195)])
}
Add(Bitmap,7921384,665,161)
{
Point(Width)
Point(Height)
}
Add(FormatStr,1847423,532,168)
{
Mask="оригинальний размен: ширина - %1 высота - %2"
link(Str1,3199984:getVar,[])
link(Str2,3344557:getVar,[])
}
Add(LineBreakEx,12121582,672,231)
{
Caption="W"
Type=3
link(_Data,7921384:Width,[])
}
Add(LineBreakEx,6400811,679,210)
{
Caption="H"
Type=3
link(_Data,7921384:Height,[])
}
Add(LineBreakEx,3199984,532,119)
{
Caption="W"
Type=2
}
Add(LineBreakEx,3344557,539,140)
{
Caption="H"
Type=2
}
Add(StyleXP,6850144,126,280)
{
}
Add(Button,366583,567,371)
{
Left=405
Top=15
Width=130
Height=50
Caption="Копировать в буфер"
link(onClick,2103980:doData,[])
}
Add(Clipboard,4801570,686,371)
{
}
Add(DoData,2103980,630,371)
{
link(onEventData,4801570:doPutText,[])
link(Data,3914806:Text,[])
}
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 8976
Рейтинг: 825
#22: 2016-11-16 23:38:27 ЛС | профиль | цитата
ser_davkin, а у ТС теперь компилятор не работает после установки Win-7/64, до ошибки не скоро дойдёт, надо же и HiAsm из Program Files вытаскивать, да в другое место переустанавливать
карма: 19

0
Ответов: 824
Рейтинг: 138
#23: 2016-11-17 00:40:37 ЛС | профиль | цитата
А-а, блин тег [ code] забыл... поправлено.
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#24: 2016-11-17 17:00:57 ЛС | профиль | цитата
sashaoli писал(а):
А-а, блин тег [ code] забыл...

IMG-20161115-WA0002.jpg

Редактировалось 1 раз(а), последний 2016-11-17 17:02:19
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
Голосовали:sashaoli
Ответов: 184
Рейтинг: 0
#25: 2016-11-19 22:26:40 ЛС | профиль | цитата
Леонид, не переживайте
ser_davkin, а у ТС теперь компилятор не работает после установки Win-7/64, до ошибки не скоро дойдёт, надо же и HiAsm из Program Files вытаскивать, да в другое место переустанавливать
, у меня все заработало

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

0
Ответов: 16884
Рейтинг: 1239
#26: 2016-11-19 23:28:25 ЛС | профиль | цитата
A_S_X писал(а):
Так, что прошу меня так больше не называть

TC (Топик Стартер) - тот кто начал ветку(тему).
И что здесь обидного ?
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 184
Рейтинг: 0
#27: 2016-11-19 23:49:33 ЛС | профиль | цитата
Извиняюсь

--- Добавлено в 2016-11-20 00:08:22

sashaoli, у меня картинка не полностью прорисовывается почему то

Редактировалось 1 раз(а), последний 2016-11-20 00:08:22
карма: 0

0
Ответов: 824
Рейтинг: 138
#28: 2016-11-20 00:13:45 ЛС | профиль | цитата
A_S_X, Что Вы делаете когда говорите "Извиняюсь"?
Сказать - "Я извиняюсь", равносильно сказать - "Я умываюсь","Я смеюсь","Я е..сь"
Правильно говорить(писать) - Извините! Простите! Прошу прощения!
То есть ты просишь кого то что-то сделать.

--- Добавлено в 2016-11-20 00:15:31

A_S_X писал(а):

sashaoli, у меня картинка не полностью прорисовывается почему то


А где схема?

Редактировалось 1 раз(а), последний 2016-11-20 00:15:31
карма: 1

0
Ответов: 184
Рейтинг: 0
#29: 2016-11-20 09:24:49 ЛС | профиль | цитата


--- Добавлено в 2016-11-20 09:52:47

Схема
Add(MainForm,11466137,154,224)
{
Width=640
Height=752
Caption="Encode images in base64"
}
Add(Button,9424194,154,168)
{
Left=55
Top=10
Width=130
Height=55
Caption="Открыть файл и\r\nкодировать в\r\nBASE64"
link(onClick,2484627:doExecute,[])
}
Add(StreamConvertor,11798362,336,175)
{
Mode=6
link(onResult,6356649:doCharset,[])
}
Add(Charset,6356649,385,175)
{
Type=5
link(onCharset,13163268:doEnum,[])
}
Add(ODialog,2484627,203,168)
{
Filter="Рисунки|*.gif;*.png;*.bmp;*,jpg"
link(onExecute,8909175:doEvent1,[])
}
Add(FileStream,12129419,287,175)
{
link(onLoad,11798362:doConvert,[])
}
Add(Hub,8909175,252,168)
{
OutCount=5
link(onEvent1,7998532:doEvent1,[(277,174)(277,160)])
link(onEvent2,12129419:doOpen,[])
link(onEvent5,9898295:doPart,[(277,202)(277,314)])
}
Add(Str_Enum,13163268,434,175)
{
Delimiter=""
Step=76
OnlyDivGroup=1
link(onEnum,3869885:doAdd,[])
}
Add(HilightMemo,3914806,658,294)
{
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,448,238)
{
Left=225
Top=25
Width=145
Caption="Заключить в тег <img> "
link(onCheck,7696315:doWork1,[(487,244)(487,230)(417,230)])
}
Add(FormatStr,7362887,518,315)
{
DataCount=4
Mask="<img src="data:image/%1;base64,\r\n%2">"
link(onFString,13084304:doEvent2,[])
link(Str1,9898295art,[(524,298)(492,298)(492,355)(342,355)])
}
Add(FilePartElm,9898295,336,308)
{
Mode=4
Point(Part)
link(onPart,7696315:doWork2,[])
}
Add(StrList,3869885,511,175)
{
}
Add(IndexToChanel,11882877,448,308)
{
Point(Index)
Point(Data)
link(onEvent1,13084304:doEvent1,[])
link(onEvent2,7362887:doString,[])
link(Index,13140747:Checked,[])
link(Data,3869885:Text,[(461,278)(517,278)])
}
Add(HubEx,7696315,413,308)
{
link(onEvent,11882877:doEvent,[])
}
Add(WebBrowser,14400621,609,280)
{
Left=15
Top=330
Width=595
Height=380
Point(doFromText)
}
Add(Hub,13084304,574,308)
{
InCount=2
link(onEvent1,14400621:doFromText,[])
link(onEvent2,3914806:doText,[])
}
Add(Img_Loader,13453601,644,154)
{
link(onLoad,7921384:doLoad,[])
}
Add(Hub,7998532,476,154)
{
OutCount=3
link(onEvent1,13453601:doLoad,[])
link(onEvent2,1847423:doString,[])
link(onEvent3,3869885:doClear,[(501,174)(501,188)])
}
Add(Bitmap,7921384,693,154)
{
Point(Width)
Point(Height)
}
Add(FormatStr,1847423,560,161)
{
Mask="оригинальний размен: ширина - %1 высота - %2"
link(Str1,7921384:Width,[(566,149)(636,149)(636,198)(706,198)])
link(Str2,7921384:Height,[(573,149)(643,149)(643,198)(713,198)])
}
Add(LineBreakEx,12121582,700,224)
{
Caption="W"
Type=3
}
Add(LineBreakEx,6400811,707,203)
{
Caption="H"
Type=3
}
Add(LineBreakEx,3199984,560,112)
{
Caption="W"
Type=2
}
Add(LineBreakEx,3344557,567,133)
{
Caption="H"
Type=2
}
Add(StyleXP,6850144,154,273)
{
}
Add(Button,366583,595,364)
{
Left=405
Top=15
Width=130
Height=50
Caption="Копировать в буфер"
link(onClick,2103980:doData,[])
}
Add(Clipboard,4801570,714,364)
{
}
Add(DoData,2103980,658,364)
{
link(onEventData,4801570:doPutText,[])
link(Data,3914806:Text,[])
}

Редактировалось 4 раз(а), последний 2016-11-20 09:52:47
карма: 0

0
Ответов: 824
Рейтинг: 138
#30: 2016-11-20 11:31:54 ЛС | профиль | цитата
Схема не читабельна!
Где тег [ code]?

Редактировалось 1 раз(а), последний 2016-11-20 11:32:46
карма: 1

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