HiAsm
HiAsm
Вверх ↑
ФорумыПомощь по средеFTP Server ← Ctrl123Ctrl →
Этот топик читают: Гость
Ответов: 563
Рейтинг: 54
#16: 2008-01-25 19:30:35 ЛС | профиль | цитата
думаю что вы не то выложили! так как никаких отличий от моего невижу!
------------ Дoбавленo:

вот как раз то что нужно! сасибо!
карма: 0

0
Ответов: 9906
Рейтинг: 351
#17: 2008-01-25 19:35:19 ЛС | профиль | цитата
Эдик писал(а):
не доканца копирут

Не дай бог, ему копируть, куда написано
карма: 9

0
Ответов: 563
Рейтинг: 54
#18: 2008-01-28 18:32:13 ЛС | профиль | цитата
теперь можно и перейти к FTP собстно как и говорит название темы
------------ Дoбавленo:

возвращаюсь к FTP.
возможно ли сделать FTP Server в HiAsm. Например как HTTP делается с помощью TCPIP а можно ли так же только сделать FTP?
а главное как это сделать?
карма: 0

0
Ответов: 9906
Рейтинг: 351
#19: 2008-01-28 20:50:39 ЛС | профиль | цитата
bublik писал(а):
возможно ли сделать FTP Server в HiAsm

Еще раз: можно
bublik писал(а):
а главное как это сделать?

Прочитать спецификацию на FTP, и сделать все, что там написано с помощью TCP-элементов
карма: 9

-1
Голосовали:Астрамак
Гость
Ответов: 17029
Рейтинг: 0
#20: 2008-01-29 16:45:15 правка | ЛС | профиль | цитата


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

0
Гость
Ответов: 17029
Рейтинг: 0
#21: 2008-01-29 17:08:10 правка | ЛС | профиль | цитата


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

0
Ответов: 3851
Рейтинг: 159
#22: 2008-01-29 19:06:23 ЛС | профиль | цитата
я испугался размеров схемы, но навскидку:
файл я отсылаю так: code_2109.txt
При передаче, используя режим string есть особенность 
Add(MainForm,10029360,21,105)
{
 Left=20
 Top=105
 link(onCreate,2008934:doEvent1,[(75,146)(75,230)])
}
Add(TCP_Server,2557566,364,154)
{
 Port=111
}
Add(TCP_Client,7617772,203,287)
{
 Port=111
 IP="127.0.0.1"
 link(onRead,3639735:doEvent,[])
}
Add(Hub,2008934,98,224)
{
 link(onEvent1,2557566:doOpen,[(156,230)(156,160)])
 link(onEvent2,7617772:doOpen,[(156,237)(156,293)])
}
Add(Debug,3280611,322,168)
{
 WEName="1"
 VDName=""
 link(onEvent,2557566:doSend,[])
}
Add(Debug,3639735,252,287)
{
 WEName="2"
 VDName=""
}
Add(Button,10139706,77,56)
{
 Left=30
 Top=45
 link(onClick,13068254:doExecute,[])
}
Add(ODialog,13068254,126,56)
{
 link(onExecute,12042842:doEvent1,[])
}
Add(StrList,1902965,259,28)
{
}
Add(Hub,12042842,182,56)
{
 link(onEvent1,1902965:doLoad,[])
 link(onEvent2,12845975:doData,[(240,69)(240,174)])
}
Add(DoData,12845975,259,168)
{
 link(onEventData,3280611:doEvent,[])
 link(Data,1902965:Text,[])
}
при отправке текстового файла более 4 кБайт (у меня), сообщение делится и приходит в виде нескольких(2х) событий.
ЗЫ: быть может стоит добавить этот факт в справку (имхо)
карма: 0
начавший
0
файлы: 1code_2109.txt [1KB] [207]
Ответов: 563
Рейтинг: 54
#23: 2008-01-31 17:41:56 ЛС | профиль | цитата
Андрей., эта схема непашет. =(
карма: 0

0
Ответов: 3851
Рейтинг: 159
#24: 2008-01-31 23:08:06 ЛС | профиль | цитата
bublik, которая (я две привёл)?
карма: 0
начавший
0
Ответов: 563
Рейтинг: 54
#25: 2008-02-01 12:52:51 ЛС | профиль | цитата
Так мне надо чтобы неприходилось создавать кучу соеденений с разными типами. Надо как то так что бы всё через один тип отсылалось! Например что бы через String можно было отправить и текст и файл.
карма: 0

0
Ответов: 3851
Рейтинг: 159
#26: 2008-02-01 13:00:26 ЛС | профиль | цитата
bublik, ввиду вышеописанной особенности при работе с типом String, я использую тип Stream - конвертор снимает "ограничения" на тип пересылаемых данных, а сами сообщения не дробятся при пересылке..
карма: 0
начавший
0
Ответов: 563
Рейтинг: 54
#27: 2008-02-01 13:13:03 ЛС | профиль | цитата
спасибо я разобрался! надо было конвнртировать Hex>Stream и Stream>Hex та схема которая большая была правильная просто конвертировал неверно.
карма: 0

0
Ответов: 3851
Рейтинг: 159
#28: 2008-02-01 16:28:56 ЛС | профиль | цитата
Я говорил о типе данных в компонентах TCP - при использовании String, сообщения могут дробиться. Если же использовать TCP-Stream, то вот - поройся, если есть желание:http://dev.hiasm.com/xf/topic.php?t=8886&start=0
http://dev.hiasm.com/xf/topic.php?t=8094&start=10
карма: 0
начавший
0
Ответов: 563
Рейтинг: 54
#29: 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
Ответов: 3851
Рейтинг: 159
#30: 2008-02-03 18:08:42 ЛС | профиль | цитата
мне кажется 
Add(Convertor,12010239,259,315)
{
 Mode=11
}
лучше чем 
Add(Stream2Hex,5537849,133,105)
{
 Symbol=""""
}
карма: 0
начавший
0
ФорумыПомощь по средеFTP Server ← Ctrl123Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика