Server-Client

Форумы Помощь по пакетуServer-Client ← Ctrl123Ctrl →

Этот топик читают: Гость

Ответов: 970

Рейтинг: 270

#16: 2010-04-13 21:16:30 ЛС | профиль | цитата

http://www.hiasm.com/xf/attach/share/files.rar (p=119182)

Мультиэлементы отдельно:



Add(MultiElementEx,15618760,147,175)
{
}
BEGIN_SDK
  Add(EditMultiEx,568058,21,21)
  {
   WorkCount=#20:doNa=Начать передачу|
   EventCount=#28:onOt=Если отклонили передачу|47:onOk=Если нажал да и, событие до отправки файла|31:onPrin=Если файл успешно принят|9:onConnect|12:onDisconnect|
   DataCount=#17:IP=IP адрес компа|4:Name|
   Width=734
   Height=599
   link(doNa,2238387:doEvent1,[(43,27)(43,202)])
  }
  Add(TCP_Client,7995722,323,154)
  {
   Port=4323
   link(onRead,15190183:doEvent,[(385,160)(385,174)])
   link(onConnect,568058:onConnect,[(555,167)(555,48)])
   link(onDisconnect,568058:onDisconnect,[(555,174)(555,55)])
   link(IP,15147447:Var2,[(329,136)(322,136)])
   link(Data,12281802:Value,[(336,142)(406,142)(406,380)(511,380)])
  }
  Add(TCP_Client,15498620,589,462)
  {
   Port=4324
   DataType=3
   link(IP,15147447:Var3,[(595,114)])
   link(Data,11435654:Value,[(602,450)(595,450)(595,555)(588,555)])
  }
  Add(FilePart,16221527,337,287)
  {
   NameWOExt=1
   link(onName,12281802:doValue,[(476,300)(476,342)])
  }
  Add(Hub,2238387,64,196)
  {
   OutCount=3
   link(onEvent1,7995722:doOpen,[(200,202)(200,160)])
   link(onEvent2,15498620:doOpen,[(96,209)(96,468)])
   link(onEvent3,12892009:doData,[(116,216)(116,314)])
  }
  Add(Hub,6310291,281,350)
  {
   link(onEvent1,16221527:doPart,[(316,356)(316,293)])
   link(onEvent2,2318196:doValue,[])
  }
  Add(Memory,12281802,505,336)
  {
   link(onData,7995722:doSend,[(542,342)(542,199)(311,199)(311,174)])
  }
  Add(IndexToChanel,15190183,414,168)
  {
   Count=3
   link(onEvent1,568058:onOt,[(600,174)(600,27)])
   link(onEvent2,13536937:doEvent1,[(458,181)(458,209)])
   link(onEvent3,1066314:doEvent1,[(489,188)(489,90)])
  }
  Add(Hub,56102,428,504)
  {
   OutCount=3
   link(onEvent1,66235:doOpen,[(480,510)(480,419)])
   link(onEvent2,43492:doCompress,[(480,517)(480,475)])
   link(onEvent3,66235:doClose,[(480,524)(480,426)])
  }
  Add(FileStream,66235,519,413)
  {
   link(FileName,2318196:Value,[(525,401)(350,401)])
  }
  Add(ZLIB,43492,519,469)
  {
   link(onStream,11435654:doValue,[(567,475)(567,517)])
   link(Stream,66235:Stream,[])
  }
  Add(Memory,2318196,344,357)
  {
  }
  Add(Hub,13536937,470,203)
  {
   link(onEvent1,568058:onOk,[(620,209)(620,34)])
   link(onEvent2,56102:doEvent1,[(496,216)(496,328)(416,328)(416,510)])
  }
  Add(GetDataEx,15147447,316,109)
  {
   link(Data,568058:IP,[(322,65)(27,65)])
  }
  Add(Hub,4439232,673,119)
  {
   link(onEvent1,7995722:doClose,[(699,125)(699,156)(311,156)(311,167)])
   link(onEvent2,15498620:doClose,[(713,132)(713,314)(577,314)(577,475)])
  }
  Add(Memory,11435654,582,511)
  {
   link(onData,15498620:doSend,[(626,517)(626,499)(577,499)(577,482)])
  }
  Add(Hub,1066314,532,84)
  {
   link(onEvent1,568058:onPrin,[(650,90)(650,41)])
   link(onEvent2,4439232:doEvent1,[(616,97)(616,125)])
  }
  Add(DoData,12892009,147,308)
  {
   Data=String()
   link(onEventData,6310291:doEvent1,[(230,314)(230,356)])
   link(Data,568058:Name,[(153,164)(34,164)])
  }
END_SDK
Add(MultiElementEx,15398202,144,249)
{
}
BEGIN_SDK
  Add(EditMultiEx,12471893,13,21)
  {
   WorkCount=#8:doEvent1|
   EventCount=#5:onDia|12:onDisconnect|15:onServerConnect|
   Width=643
   Height=480
   link(doEvent1,720666:doEvent1,[(51,27)(51,188)])
  }
  Add(TCP_Server,16020217,188,126)
  {
   Port=4323
   Point(onServerConnect)
   link(onRead,5914010:doEvent1,[(232,132)(232,118)])
   link(Data,7410585:Value,[(194,114)(330,114)(330,261)(467,261)])
   link(onServerConnect,12471893:onServerConnect,[(438,153)(438,41)])
  }
  Add(TCP_Server,3797073,181,273)
  {
   Port=4324
   DataType=3
   link(onRead,27261:doDeCompress,[(229,279)(229,363)])
   link(onDisconnect,12471893:onDisconnect,[(435,293)(435,34)])
  }
  Add(Hub,720666,90,182)
  {
   link(onEvent1,16020217:doOpen,[(146,188)(146,132)])
   link(onEvent2,3797073:doOpen,[(142,195)(142,279)])
  }
  Add(FileStream,52995,489,448)
  {
   Mode=1
   Point(doCopyFromStream)
   link(FileName,45791:Value,[(495,429)(558,429)])
  }
  Add(SDialog,98143,496,378)
  {
   Title="Сохранить файл..."
   FileName=""
   Point(doFileName)
   link(onExecute,45791:doValue,[])
  }
  Add(Hub,34347,307,350)
  {
   OutCount=6
   link(onEvent1,12721767:doData,[(367,356)(367,328)])
   link(onEvent2,98143:doExecute,[(409,363)(409,384)])
   link(onEvent3,52995:doOpen,[(405,370)(405,454)])
   link(onEvent4,52995:doCopyFromStream,[(405,377)(405,468)])
   link(onEvent5,52995:doClose,[(405,384)(405,461)])
   link(onEvent6,14056719:do3,[(363,391)(363,237)])
  }
  Add(ZLIB,27261,244,350)
  {
   link(onStream,34347:doEvent1,[])
  }
  Add(Memory,45791,552,378)
  {
  }
  Add(Message,7454452,265,252)
  {
   Caption="Принятие файла"
   Type=2
   Point(onYES)
   Point(onNO)
   link(Message,4917741:Value,[(271,166)(369,166)])
   link(onYES,14056719:do2,[(386,265)(386,230)])
   link(onNO,14056719:do1,[(382,272)(382,223)])
  }
  Add(FormatStr,398288,237,49)
  {
   DataCount=1
   Mask="Вы хотите получить файл %1?"
   link(onFString,4917741:doValue,[(316,55)(316,69)])
  }
  Add(Memory,4917741,363,63)
  {
   link(onData,6250411:doEvent1,[(407,69)(407,157)(204,157)(204,244)])
  }
  Add(MultiElementEx,14056719,405,217)
  {
   link(onEventData,7410585:doValue,[])
  }
  BEGIN_SDK
    Add(EditMultiEx,15289685,21,21)
    {
     WorkCount=#3:do1|3:do2|3:do3|
     EventCount=#11:onEventData|
     Width=531
     Height=501
     link(do1,4738470:doData,[(109,27)(109,195)])
     link(do2,11584006:doData,[(123,34)(123,265)])
     link(do3,735118:doData,[(154,41)(154,335)])
    }
    Add(Icon,299325,497,476)
    {
     @Hint=#5:#main|
     Icon=[ZIP5E07000078DA636060044209090610C9E0C1CEC020C6C0C0A001C4402106030688380828B0330C3990348D301A3567F0987367124E4415F7D0D29C0618A2DC3D0D54F2570395C2B9613085F320740F39E9198E86623E1D2EE0FFFFFF0C1F18ECB1E20740DC00A53F301802B135906D0D14B3868A5943D5C903C5D8C1344C2FC85C1006004BA212E0]
    }
    Add(DoData,4738470,196,189)
    {
     Data=String(0)
     link(onEventData,1636801:doEvent1,[(348,195)(348,125)])
    }
    Add(DoData,11584006,224,259)
    {
     Data=String(1)
     link(onEventData,1636801:doEvent2,[(362,265)(362,132)])
    }
    Add(DoData,735118,287,329)
    {
     Data=String(2)
     link(onEventData,1636801:doEvent3,[(394,335)(394,139)])
    }
    Add(Hub,1636801,469,119)
    {
     InCount=3
     OutCount=1
     link(onEvent1,15289685:onEventData,[(517,125)(517,27)])
    }
  END_SDK
  Add(Memory,7410585,461,217)
  {
   link(onData,16020217:doSend,[(505,223)(505,185)(176,185)(176,146)])
  }
  Add(Hub,5914010,244,112)
  {
   link(onEvent1,398288:doString,[(270,118)(270,86)(225,86)(225,55)])
   link(onEvent2,11130990:doValue,[(335,125)(335,279)])
  }
  Add(Memory,11130990,412,273)
  {
  }
  Add(DoData,12721767,412,322)
  {
   link(onEventData,98143:doFileName,[(470,328)(470,391)])
   link(Data,11130990:Value,[])
  }
  Add(Hub,6250411,216,238)
  {
   link(onEvent1,12471893:onDia,[(443,244)(443,27)])
   link(onEvent2,7454452:doMessage,[(248,251)(248,258)])
  }
END_SDK

карма: 0

Ответов: 4641

Рейтинг: 334

#17: 2010-04-13 21:20:31 ЛС | профиль | цитата

esc писал(а):

А если сервер не знает расширения

а сам как думаешь?
Наверно первое что на ум приходит, так это вручную вбивать имя файла или передавать его от клиента.
Спросишь как. Изучи при пример.
------------ Дoбавленo в 21.20:
Genius, это что это ты выложил? что за схема на скорую руку?

карма: 1

Время верстки: %cr_time% Текущее время: %time%

Ответов: 970

Рейтинг: 270

#18: 2010-04-13 21:21:45 ЛС | профиль | цитата

[offtop]Ravilr, http://hiasm.com/forum.html?q=3&p=115254#p115254 - с передачей файлов, согласен, схема ужасная[/offtop]

карма: 0

Ответов: 4641

Рейтинг: 334

#19: 2010-04-13 21:25:01 ЛС | профиль | цитата

Genius писал(а):

Ravilr, http://hiasm.com/forum.html?q=3&p=115254#p115254

и? где комментарии? схема ужасная. А передача файлов и так работает со схемой которая в данном посте выложена.

карма: 1

Время верстки: %cr_time% Текущее время: %time%

Ответов: 101

Рейтинг: 3

#20: 2010-04-13 21:32:38 ЛС | профиль | цитата

http://www.hiasm.com/xf/attach/share/files.rar (p=119182)

Мультиэлементы отдельно:

Программа виснет. После нажатие "Да". Он все время дает диалог и так бесконечно...
------------ Дoбавленo в 21.32:

http://www.hiasm.com/xf/attach/share/files.rar (p=119182)

Мультиэлементы отдельно:

Программа виснет. После нажатие "Да". Он все время дает диалог и так бесконечно...

карма: 0

Ответов: 4641

Рейтинг: 334

#21: 2010-04-13 21:33:52 ЛС | профиль | цитата

esc, держи. и имя и все такое...передается.
Если не работает...пиши что именно не работает и если есть ошибки в отладке тоже напиши.
------------ Дoбавленo в 21.33:


Add(MainForm,8732712,154,63)
{
 link(onCreate,1277618:doEvent1,[])
}
Add(TCP_Server,13179667,266,77)
{
 Port=25
 DataType=3
 link(onRead,4656024:doUnPack,[])
}
Add(ODialog,5748111,84,154)
{
 link(onExecute,12527729:doEvent1,[])
}
Add(FileStream,3296064,154,161)
{
 link(onLoad,3606325:doPack,[])
}
Add(StreamUnPack,4656024,371,77)
{
 DataCount=#4:file|5:fname|
 link(onUnPack,2744615:doExecute,[])
}
Add(TCP_Client,14765468,266,147)
{
 Port=25
 IP="127.0.0.1"
 DataType=3
}
Add(Hub,1277618,224,77)
{
 link(onEvent1,13179667:doOpen,[])
 link(onEvent2,14765468:doOpen,[(252,90)(252,153)])
}
Add(StreamPack,3606325,203,161)
{
 DataCount=#4:file|5:fname|
 link(onPack,14765468:doSend,[])
 link(file,3296064:Stream,[(209,149)(195,149)(195,205)(160,205)])
 link(fname,11040188:Part,[])
}
Add(SDialog,2744615,434,77)
{
 Point(FileName)
 link(onExecute,2062270:doEvent1,[])
 link(FileName,4656024:fname,[(440,65)(412,65)(412,121)(384,121)])
}
Add(FileStream,16700377,525,133)
{
 Mode=1
 AutoCopy=0
 Point(doCopyFromStream)
 link(FileName,16428879:Value,[])
}
Add(DoData,8205502,371,147)
{
 link(onEventData,16700377:doCopyFromStream,[])
 link(Data,4656024:file,[])
}
Add(Hub,2062270,483,77)
{
 link(onEvent1,16428879:doValue,[])
 link(onEvent2,8205502:doData,[(509,90)(509,128)(359,128)(359,153)])
}
Add(Memory,16428879,525,77)
{
}
Add(Button,6937871,35,154)
{
 Left=75
 Top=50
 link(onClick,5748111:doExecute,[])
}
Add(Hub,12527729,126,154)
{
 link(onEvent1,11040188:doPart,[(147,160)(147,111)])
 link(onEvent2,3296064:doOpen,[])
}
Add(FilePartElm,11040188,210,105)
{
 Point(Part)
}

карма: 1

Время верстки: %cr_time% Текущее время: %time%

Ответов: 101

Рейтинг: 3

#22: 2010-04-13 21:34:01 ЛС | профиль | цитата

code_17781.txt

карма: 0

файлы: 1

code_17781.txt [7.6KB] [109]

Гость

Ответов: 17029

Рейтинг: 0

#23: 2010-04-13 21:50:40 правка | ЛС | профиль | цитата

Редактировалось 1 раз(а), последний 2025-01-17 15:02:52

карма: 0

Ответов: 4641

Рейтинг: 334

#24: 2010-04-13 21:53:15 ЛС | профиль | цитата

81.16.15.194 писал(а):

Программа после отправки не реагирует...

что кто какая программа? ту которую я дал? как не реагирует ? салют не происходит или что? или не отправляет на крик "отправься" ?

карма: 1

Время верстки: %cr_time% Текущее время: %time%

Ответов: 101

Рейтинг: 3

#25: 2010-04-14 09:45:29 ЛС | профиль | цитата

После нажатия push ничего не происходит. Вот эта программа.
code_17782.txt

карма: 0

файлы: 1

code_17782.txt [1.5KB] [152]

Ответов: 4641

Рейтинг: 334

#26: 2010-04-14 09:52:39 ЛС | профиль | цитата

esc писал(а):

После нажатия push ничего не происходит

т.е не открывается диалог выбора файлов?

карма: 1

Время верстки: %cr_time% Текущее время: %time%

Ответов: 63

Рейтинг: 8

#27: 2010-04-14 11:01:32 ЛС | профиль | цитата

[flood]У меня эта схема работает.[/flood]

карма: 1

Ответов: 1328

Рейтинг: 69

#28: 2010-04-15 02:35:25 ЛС | профиль | цитата

esc писал(а):

После нажатия push ничего не происходит. Вот эта программа.

esc, Полностью рабочая схема, ищи проблему у себя.

карма: 2

Ответов: 130

Рейтинг: 3

#29: 2010-11-19 13:11:19 ЛС | профиль | цитата

А можно ли как-нибудь сделать прогресс-бар, чтобы было видно как передаётся файл? (Или хотябы количество переданных/принятых данных)

карма: 0

Ответов: 130

Рейтинг: 3

#30: 2010-11-23 17:55:05 ЛС | профиль | цитата

Dima писал(а):

Подскажите пожалуйста...

карма: 0

Форумы Помощь по пакетуServer-Client ← Ctrl123Ctrl →


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