Вверх ↑
Ответов: 563
Рейтинг: 54
#1: 2008-02-03 15:12:24 ЛС | профиль | цитата
не всё же мучает вопрос как передать файл по TCPIP через тип соединения String (то есть в виде текста).
перевод в Hex непомогает так как при сборке файла на другом конце соединения итоговый файл собирается неверно, хотя при помещении полученного пакета с файлом в виде Hex в Memo (редактор текста) на вид данные такие же как и при прямом помешении в редактор текста без отправки через TCPIP. хух... вот так. вобщем помогите пожалуйста. я дам схемку которая у меня получилась! плииииз помогите!!!

#pas
Make(delphi)
Add(MainForm,1068135,7,7)
{
Left=20
Top=105
Width=139
Height=117
BorderStyle=4
link(onCreate,14221812:doEvent1,[])
}
Add(MultiElementEx,8704708,112,112)
{
@Hint=#22:Разборка файла в текст|
link(Вывод результата,1864851:doSend,[])
}
BEGIN_SDK
Add(EditMultiEx,7720968,21,21)
{
WorkCount=#14:Разобрать файл|
EventCount=#16:Вывод результата|
DataCount=#9:Имя файла|
Width=188
Height=123
link(Разобрать файл,6109537:doEvent1,[(25,27)(25,90)])
}
Add(GetDataEx,14184090,126,77)
{
Angle=1
link(Data,1217760:Stream,[(153,86)])
}
Add(Stream2Hex,5537849,133,105)
{
Symbol=""""
link(onResult,7720968:Вывод результата,[(191,111)(191,27)])
link(Data,14184090:Var2,[])
}
Add(FileStream,6726092,98,35)
{
link(FileName,7720968:Имя файла,[(104,30)(27,30)])
}
Add(MemoryStream,1217760,147,35)
{
}
Add(StreamCopy,7052360,91,105)
{
link(Dest,14184090:Var1,[(97,86)])
link(Source,6726092:Stream,[])
link(Count,6726092:Size,[])
link(onCopy,5537849:doConvert,[])
}
Add(Hub,6109537,28,84)
{
OutCount=4
link(onEvent1,1217760:doClear,[(92,90)(92,48)])
link(onEvent2,6726092:doOpen,[(83,97)(83,41)])
link(onEvent3,7052360:doCopy,[(76,104)(76,111)])
link(onEvent4,6726092:doClose,[(74,111)(74,48)])
}
END_SDK
Add(Message,14376705,140,210)
{
Message="111"
Caption="111"
}
Add(TCP_Server,1864851,154,98)
{
Port=567
}
Add(ODialog,2667821,70,112)
{
link(onExecute,8704708:Разобрать файл,[])
}
Add(Hub,14221812,49,42)
{
link(onEvent1,1864851:doOpen,[(100,48)(100,104)])
link(onEvent2,1013795:doOpen,[(89,55)(89,209)])
}
Add(TCP_Client,1013795,98,203)
{
Port=567
IP="127.0.0.1"
link(onRead,7417976:doAdd,[])
link(onConnect,14376705:doMessage,[])
}
Add(Button,10440370,28,112)
{
Left=20
Top=20
Width=90
Height=50
Caption=">>"
link(onClick,2667821:doExecute,[])
}
Add(MultiElementEx,7951500,357,273)
{
@Hint=#20:Сборка текста в файл|
link(Имя файла,8188367:Value,[(370,263)(349,263)(349,307)(314,307)])
}
BEGIN_SDK
Add(EditMultiEx,14508882,21,21)
{
WorkCount=#12:Сборка файла|
DataCount=#5:Текст|9:Имя файла|
Width=167
Height=67
link(Сборка файла,3259531:doEvent1,[(29,27)(29,44)])
}
Add(FileStream,3582457,142,45)
{
Mode=2
Point(doCopyFromStream)
link(FileName,14508882:Имя файла,[(148,33)(34,33)])
}
Add(Stream2Hex,11134521,79,45)
{
Mode=1
Symbol=""""
link(onResult,3582457:doCopyFromStream,[(123,51)(123,65)])
link(Data,14508882:Текст,[(85,33)(27,33)])
}
Add(Hub,3259531,37,38)
{
OutCount=3
link(onEvent1,3582457:doOpen,[(129,44)(129,51)])
link(onEvent2,11134521:doConvert,[])
link(onEvent3,3582457:doClose,[])
}
END_SDK
Add(SDialog,13522066,266,266)
{
link(onExecute,8188367:doValue,[])
}
Add(Hub,11672667,224,266)
{
link(onEvent1,13522066:doExecute,[])
link(onEvent2,7951500:Сборка файла,[])
}
Add(Memory,8188367,308,266)
{
}
Add(StrList,7417976,182,203)
{
link(onChange,8000091:doTimer,[(222,209)(222,255)(128,255)(128,272)])
}
Add(DoData,14073569,182,266)
{
link(onEventData,11672667:doEvent1,[])
link(Data,7417976:Text,[])
}
Add(Timer,8000091,140,266)
{
Interval=2500
Enable=1
AutoStop=1
link(onTimer,14073569:doData,[])
}
карма: 0

0