Вверх ↑
Этот топик читают: Гость
Ответов: 893
Рейтинг: 18
#1: 2007-04-21 22:47:45 ЛС | профиль | цитата
Вобщим я немного доработал стандартный пример но это мне помогло понять и разобратся как это правильно зделать, возможно комуто пригодится.
code_1336.txt
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
файлы: 1code_1336.txt [2.5KB] [622]
Ответов: 3514
Рейтинг: 184
#2: 2007-04-22 12:57:54 ЛС | профиль | цитата
Чувак, мы о другом договаривались.
Astramak (22:19:42 21/04/2007)
если разберёшься, кинь в аплоад просто пример преобраозования картинки в текст и наоборот, люди будут благодарны

Byuik (22:20:12 21/04/2007)
понял конечно кину

карма: 0
0
Ответов: 893
Рейтинг: 18
#3: 2007-04-22 14:06:06 ЛС | профиль | цитата
Возможно я тебя не понял ?
Ведь мне надо было в stream и обратно а не string преобразовать да и я считаю что в string картинку преобразовать не получитса .
Возможно тебя это утешит ....
Это передача через stream практически всего чего захочетса
Make(Delphi)
Pos(273,27)
Add(MainForm,68161,-161,64)
{
Left=21
Top=106
Width=480
Height=450
}
Add(ListBox,8867307,798,323)
{
Left=10
Top=5
Width=360
Height=185
}
Add(InfoTip,15437897,273,372)
{
Info=#18:Ваш канал передачи|
Font=[MS Sans Serif,24,1,16711935,1]
Width=232
Height=67
}
Add(Edit,1736100,-7,183)
{
Left=10
Top=205
Width=365
Text="Введи текст и нажми Enter"
link(onEnter,11931901:doConvert,[(47,196)(49,196)])
}
Add(Convertor,11931901,49,190)
{
Mode=12
link(onResult,391860:doCompress,[])
}
Add(FileStream,13958312,903,554)
{
Mode=1
AutoCopy=0
Point(doCopyFromStream)
Point(doPosition)
link(onLoad,10529986:doClear,[(945,560)(945,535)(760,535)(760,497)])
link(FileName,13614067:Value,[])
}
Add(ZLIB,6153517,609,456)
{
link(onStream,8759723:doEvent1,[(684,462)(684,525)])
}
Add(Convertor,2776419,735,330)
{
Mode=11
link(onResult,8867307:doAdd,[(782,336)(782,329)])
}
Add(ZLIB,43492,105,414)
{
link(onStream,11850268:doWork2,[(184,420)(184,413)])
link(Stream,81152:Data2,[(111,388)(48,388)])
}
Add(ODialog,15467597,-196,407)
{
link(onExecute,9271434:doLoad,[(-152,413)(-152,413)])
}
Add(BitmapStream,30541,742,393)
{
link(onRead,19361:doLoad,[])
}
Add(GetData,81152,35,302)
{
link(Data,93822:Stream,[])
}
Add(MemoryStream,93822,35,260)
{
}
Add(PictureStream,9271434,-147,407)
{
link(onLoad,56102:doEvent1,[])
}
Add(Image,19361,791,393)
{
Left=10
Top=240
Width=364
Height=165
ViewStyle=0
}
Add(MT_IndexToChanel,14187227,511,400)
{
Count=3
link(onEvent1,12793766:doDeCompress,[(593,406)(593,329)])
link(onEvent2,27261:doDeCompress,[(593,413)(593,371)])
link(onEvent3,6153517:doDeCompress,[(576,420)(576,469)])
}
Add(BitmapStream,23496,35,400)
{
link(Stream,81152:Data1,[])
}
Add(ZLIB,27261,644,358)
{
link(onStream,30541:doRead,[(723,364)(723,399)])
}
Add(Hub,56102,-42,407)
{
OutCount=4
link(onEvent1,23496:doWrite,[])
link(onEvent2,43492:doCompress,[])
link(onEvent3,93822:doCopy,[(12,427)(12,266)])
link(onEvent4,93822:doClear,[(12,434)(12,273)])
}
Add(Button,11656702,-245,407)
{
Left=400
Top=360
Caption="Картинка"
link(onClick,15467597:doExecute,[])
}
Add(Hub,8759723,693,519)
{
link(onEvent1,10529986:doCopy,[(747,525)(747,490)])
link(onEvent2,12793802:doExecute,[(782,532)(782,525)])
}
Add(ZLIB,391860,98,190)
{
link(onStream,11850268:doWork1,[(180,196)(180,406)])
}
Add(ZLIB,12793766,644,316)
{
link(onStream,2776419:doConvert,[(705,322)(705,336)])
}
Add(FileTools,12344459,-105,505)
{
link(onEnd,2780993:doEvent1,[])
link(FileName,783837:Data2,[(-99,495)(-117,495)(-117,596)(-148,596)])
}
Add(ODialog,14891532,-217,505)
{
link(onExecute,9647676:doData,[])
}
Add(Button,9085796,-259,505)
{
Left=400
Top=385
Caption="Файл"
link(onClick,14891532:doExecute,[])
}
Add(Hub,2780993,-56,505)
{
link(onEvent1,9826409:doOpen,[])
link(onEvent2,9826409:doClose,[])
}
Add(Memory,13614067,903,505)
{
link(onData,14276565:doData,[(945,511)(945,549)(760,549)(760,567)])
}
Add(GetData,783837,-161,554)
{
link(Data,9647676:ValueData,[])
}
Add(FileStream,9826409,0,505)
{
link(onLoad,3805856:doEvent1,[])
link(FileName,783837:Data1,[(6,495)(-64,495)(-64,596)(-155,596)])
}
Add(MemoryStream,10541577,105,505)
{
link(SrcStream,9826409:Stream,[(111,495)(69,495)(69,547)(6,547)])
}
Add(Hub,3805856,42,505)
{
OutCount=3
link(onEvent1,10541577:doCopy,[])
link(onEvent2,10569684:doCompress,[(121,518)(121,525)])
link(onEvent3,10541577:doClear,[(89,525)(89,518)])
}
Add(ZLIB,10569684,154,519)
{
link(onStream,11850268:doWork3,[(208,525)(208,420)])
link(Stream,10541577:Stream,[(160,509)(146,509)(146,547)(111,547)])
}
Add(SDialog,12793802,840,519)
{
link(onExecute,13614067:doValue,[(880,525)(880,511)])
}
Add(MT_ChanelToIndex,11850268,231,400)
{
Count=3
link(onIndex,14187227:doEvent,[])
}
Add(DoDataMemory,9647676,-161,505)
{
link(onData,12344459:doFileExists,[(-117,511)(-117,532)])
}
Add(MemoryStream,10529986,770,484)
{
}
Add(DoData,14276565,770,561)
{
link(onEventData,13958312:doCopyFromStream,[(852,567)(852,574)])
link(Data,10529986:Stream,[])
}
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 3514
Рейтинг: 184
#4: 2007-04-22 14:32:28 ЛС | профиль | цитата
Ё. ты sha формат видел?
карма: 0
0
Ответов: 3851
Рейтинг: 159
#5: 2007-04-26 15:28:29 ЛС | профиль | цитата
Астрамак писал(а):
пример преобраозования картинки в текст

Вот примерчик преобразования файла (любого) в текст www.fields.pochta.ru/7_8/conv_78.rar делался для передачи по сети (TCP-компоненты со стрингом работают надёжнее чем со стримом). Но оЧчень медленный. Для пробы не советую брать больше 100кил. Если разберёшь принцип, может сделаешь IC - ты, вроде знакОм с дэльфями.. и
Астрамак писал(а):
люди будут благодарны

карма: 0
начавший
0
Администрация
Ответов: 15295
Рейтинг: 1519
#6: 2007-04-26 17:14:00 ЛС | профиль | цитата
Андрей. писал(а):
TCP-компоненты со стрингом работают надёжнее чем со стримом

ошибочное утверждение. Компонент читает и пишет данные только в бинарном виде. На более высоком уровне в зависимосте от выставленных пользователем настроек они интерпретируются как число, строка или поток.
карма: 27
0
Ответов: 2125
Рейтинг: 159
#7: 2007-04-26 18:14:51 ЛС | профиль | цитата
Dilma писал(а):
Компонент читает и пишет данные только в бинарном виде

... только вот не рассчитан он на то, что данные могут быть доставлены не так, как их посылали, а либо частями, либо склеены из двух посылок.
карма: 1

0
Ответов: 3514
Рейтинг: 184
#8: 2007-04-26 18:22:56 ЛС | профиль | цитата
Ё... Мне нужно: превратить картинку в текст, добавив её в текстовое поле например. Вот и всё. А потом, если это возможно сделать и обратное,- из текста в картинку.
В пример привожу формат SHA, где картинка при сохранении сохраняется как текст
карма: 0
0
Администрация
Ответов: 15295
Рейтинг: 1519
#9: 2007-04-26 18:39:01 ЛС | профиль | цитата
tsdima писал(а):
только вот не рассчитан он на то, что данные могут быть доставлены не так, как их посылали, а либо частями, либо склеены из двух посылок

TSocket - не расчитан. Он и не должен такими вещами заниматься.
THITCP_Server - как раз в случае с потоком(Stream) собирает все куски вместе и не выдает события пока все данные не будут доставлены.

Астрамак писал(а):
Мне нужно: превратить картинку в текст

-Картинку в поток
-Далее поток в строку (Convertor)
-и затем строку в base64 (Charset)
карма: 27
0
Ответов: 9906
Рейтинг: 351
#10: 2007-04-26 18:47:12 ЛС | профиль | цитата
Астрамак писал(а):
сделать и обратное,- из текста в картинку

Не тебе ли я недавно ссылку на топик давал, где это ОЧЕНЬ подробно обсуждалось
карма: 9

0
Ответов: 3514
Рейтинг: 184
#11: 2007-04-26 19:01:01 ЛС | профиль | цитата
-Картинку в поток
-Далее поток в строку (Convertor)
-и затем строку в base64 (Charset)

Будем пробовать.

Galkov, да не читал я эти 10 страниц. Если тема называется "Неправильно шифруется в ini" то что я ожидаю там увидеть? Конвертацию картинки в текст?
карма: 0
0
Ответов: 9906
Рейтинг: 351
#12: 2007-04-26 19:20:45 ЛС | профиль | цитата
Астрамак писал(а):
да не читал я эти 10 страниц

Ты вообще зачем на форум приходишь - по-флудить
Может ты рассчитываешь, что тебе после такого отвечать кто-то будет

Можешь быть уверен, в этих "кто-то" - меня не будет.
Честное слово, найдутся дела - вместо того чтобы "помогать" на корзину.
карма: 9

0
Ответов: 3514
Рейтинг: 184
#13: 2007-04-26 20:32:56 ЛС | профиль | цитата
Я читаю то, что мне интересно и нужно
1. Физически не успеваю прочесть всё
2. На кой мне нужно всё? У меня возникла проблема,- прошу, есть старый форум и поиск на этом. Из-за так называемого поиска и возникают проблемы, не находит. Приходится новое открывать.

И откуда же это мне знать, что на шестой странице обсуждения о ini будет что-то о картинках?
карма: 0
0
Ответов: 9906
Рейтинг: 351
#14: 2007-04-26 20:38:31 ЛС | профиль | цитата
И оно еще рассуждает об уважении.
Вопросов больше не имею
карма: 9

0
Ответов: 3514
Рейтинг: 184
#15: 2007-04-26 20:49:15 ЛС | профиль | цитата
Я не рассуждаю, а цитирую тебя же.

Нельзя судить по себе, опять таки. Сравнил свой уровень знаний и мой, в данной, конкретной области.
Об этом уже писалось и читалось, и я думаю многие думают так же, просто как кто то сказал "Боятся возникать"
карма: 0
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)