Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2007-10-11 06:04:21 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 16:08:49
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#2: 2007-10-11 06:10:17 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 16:08:49
карма: 0

0
Администрация
Ответов: 15295
Рейтинг: 1519
#3: 2007-10-11 08:32:24 ЛС | профиль | цитата
можно. С помощью элемента MT_String. Например, собрать все потоки в одну строку используя в качестве разделителя символ 1, а затем с помощью конвертора преобразовать в Stream и отправить клиенту.
карма: 27
0
Ответов: 206
Рейтинг: 19
#4: 2007-10-12 12:31:14 ЛС | профиль | цитата
вот пример

[size=-2]------ Добавлено в 12:31
GS_Lab писал(а):
помогите!

всегда рад помоч
карма: 0
Время : %time% Текущее время: %time%
1
файлы: 1pro-lan-chat.rar [1.3KB] [199]
Голосовали:GS_Lab
Гость
Ответов: 17029
Рейтинг: 0
#5: 2007-10-17 13:56:54 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 16:08:49
карма: 0

0
Ответов: 1328
Рейтинг: 69
#6: 2007-10-17 18:56:42 ЛС | профиль | цитата
GS_Lab, Попробуй с bmp
------------ Дoбавленo:

Хотя и с jpg работает
Add(MainForm,68161,28,98)
{
Left=21
Top=106
Width=395
Height=286
link(onCreate,46308:doEvent1,[])
}
Add(ZLIB,43492,448,203)
{
link(onStream,52372:doSend,[])
link(Stream,2160953:Var3,[(454,170)])
}
Add(TCP_Client,52372,525,189)
{
Port=120
IP="127.0.0.1"
DataType=3
}
Add(BitmapStream,30541,511,49)
{
link(onRead,19361:doLoad,[])
}
Add(GetDataEx,2160953,378,161)
{
link(Data,93822:Stream,[])
}
Add(MemoryStream,93822,385,105)
{
}
Add(TCP_Server,37674,385,56)
{
Port=120
DataType=3
link(onRead,27261:doDeCompress,[])
link(onConnect,75291:doMessage,[(436,69)(436,111)])
}
Add(Image,19361,560,49)
{
Width=387
Height=246
Align=5
ViewStyle=0
}
Add(Hub,46308,273,133)
{
link(onEvent1,37674:doOpen,[(330,139)(330,62)])
link(onEvent2,52372:doOpen,[(472,146)(472,195)])
}
Add(BitmapStream,23496,385,189)
{
link(Stream,2160953:Var2,[])
}
Add(ZLIB,27261,455,49)
{
link(onStream,30541:doRead,[])
}
Add(Hub,56102,273,196)
{
OutCount=3
link(onEvent1,23496:doWrite,[])
link(onEvent2,43492:doCompress,[])
link(onEvent3,93822:doClear,[(345,216)(345,118)])
}
Add(Message,75291,455,105)
{
}
Add(ODialog,9757201,126,196)
{
link(onExecute,2009577:doLoad,[])
}
Add(PictureStream,2009577,210,196)
{
link(onLoad,56102:doEvent1,[])
}
Add(Button,12801778,49,196)
{
Left=185
Top=285
Align=4
Caption="Загрузить картинку..."
link(onClick,9757201:doExecute,[])
}
карма: 2

0
Гость
Ответов: 17029
Рейтинг: 0
#7: 2007-10-28 09:38:36 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 16:08:49
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#8: 2007-10-30 13:41:37 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 16:08:50
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#9: 2007-11-23 12:27:26 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-05 09:27:32
карма: 0

0
Ответов: 315
Рейтинг: 1
#10: 2007-12-21 20:54:17 ЛС | профиль | цитата
Скажите как можно сделать так, чтоб в элементе "Memo" (Интерфейс) текст вставлялся в конец списка и при этом ползунок всегда прокручивался к последней строчке? Заранее спасибо!
------------ Дoбавленo:

кто-нибудь встречал пример использования UDP??? если да ткните меня пальцем плиZ!
карма: 0

0
Администрация
Ответов: 15295
Рейтинг: 1519
#11: 2007-12-21 21:02:28 ЛС | профиль | цитата
OneCopyUPD.sha
карма: 27
1
Голосовали:GS_Lab
Ответов: 315
Рейтинг: 1
#12: 2007-12-21 21:31:22 ЛС | профиль | цитата
Dilma, OneCopyUPD.sha = для меня космос, я неразобрался
карма: 0

1
Голосовали:Ghost_Russia
Гость
Ответов: 17029
Рейтинг: 0
#13: 2007-12-21 21:57:49 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 16:08:50
карма: 0

0
Администрация
Ответов: 15295
Рейтинг: 1519
#14: 2007-12-22 01:30:23 ЛС | профиль | цитата
GS_Lab, какой же пример ожидается, если в схеме из 10 элементов разобраться не удается?
карма: 27
0
Ответов: 206
Рейтинг: 19
#15: 2007-12-22 09:43:17 ЛС | профиль | цитата
ElementsDelphiExampleInternetUPD.sha
а если в лом туды суватся то вот:

#sha
Add(MainForm,7696190,21,105)
{
Left=20
Top=105
link(onCreate,14361709:doEvent1,[])
}
Add(Button,13254290,77,91)
{
Left=10
Top=10
link(onClick,16740130:doSend,[])
}
Add(Edit,9719349,182,35)
{
Left=75
Top=10
Width=280
}
Add(UDP,16740130,182,84)
{
LocalPort=1001
RemotePort=1002
RemoteIP="127.0.0.1"
AutoConnect=0
ReceiveMode=1
link(Data,9719349:Text,[])
}
Add(UDP,12839073,182,147)
{
LocalPort=1002
link(onReceive,13733955:doAdd,[])
}
Add(Hub,14361709,77,140)
{
link(onEvent1,16740130:doOpen,[(128,146)(128,90)])
link(onEvent2,12839073:doOpen,[])
}
Add(Memo,13733955,252,147)
{
Left=75
Top=45
Width=280
Height=200
}

карма: 0
Время : %time% Текущее время: %time%
1
Голосовали:GS_Lab
Сообщение
...
Прикрепленные файлы
(файлы не залиты)