HiAsm
HiAsm
Вверх ↑
ФорумыПомощь по пакетуЗаписывает пустой файл по FTP ← Ctrl1Ctrl →
Этот топик читают: Гость
Ответов: 48
Рейтинг: 4
#1: 2013-07-01 17:44:34 ЛС | профиль | цитата
файл перезаписывает на сервере но пустым
непойму в чём дело
code_31383.txt
Хелпните!)
------------ Дoбавленo в 17.44:
Идей не у кого нет?
карма: 1

0
файлы: 1code_31383.txt [1.9KB] [339]
Разработчик
Ответов: 26161
Рейтинг: 2127
#2: 2013-07-01 19:29:10 ЛС | профиль | цитата
suslik101 писал(а):
Идей не у кого нет?

Ты пытаешься подать стрим в поток, когда у тебя занята верхняя точка. Писать надо сначала в MemoryStream, а уж потом давать команду на запись
карма: 22

1
Голосовали:suslik101
Ответов: 48
Рейтинг: 4
#3: 2013-07-02 11:57:05 ЛС | профиль | цитата
nesco, а можешь показать на примере?
Так быстрее доходит))
карма: 1

0
Разработчик
Ответов: 26161
Рейтинг: 2127
#4: 2013-07-02 14:08:43 ЛС | профиль | цитата
suslik101 писал(а):
а можешь показать на примере?

А ты пример нормалный выложи, а не с кракозябрами, которые никакой кодировкой не убираются. Можешь схему приаттачить, так лучше будет.
карма: 22

0
Ответов: 48
Рейтинг: 4
#5: 2013-07-02 14:45:12 ЛС | профиль | цитата
nesco
убрал кракозябры


Add(WinFTP,2407830,490,195)
{
 Directory="."
 RemoteName="list.txt"
 Point(onConnect)
 Point(onFindFile)
 Point(FoundIsDirectory)
 Point(FoundFileName)
 Point(FoundFileSize)
 Point(doDirectory)
 Point(onWrite)
 link(onError,2183670:MassageErr,[(534,201)(534,125)])
 link(onRead,12995982:doConvert,[(548,208)(548,209)])
 link(LocalName,1556754:Var2,[(496,165)(495,165)])
 link(onConnect,2407830:doReadFile,[(526,215)(526,239)(482,239)(482,215)])
}
Add(Button,11189587,405,160)
{
 Left=265
 Top=5
 Width=115
 Height=35
 Caption="Connection"
 link(onClick,2407830:doOpen,[(463,166)(463,201)])
}
Add(Label,6675800,588,119)
{
 Left=10
 Top=245
 Width=369
 Height=17
 Caption="Error code"
}
Add(StrCat,11202494,554,308)
{
 Str2="_end"
 link(onStrCat,9017750:doAdd,[(622,314)(622,188)])
 link(Str1,10403565:Text,[(560,296)(538,296)])
}
Add(Convertor,12995982,574,203)
{
 Mode=11
 link(onResult,9017750:doText,[])
 link(Data,1556754:Var3,[(580,159)])
}
Add(MemoryStream,3763216,489,104)
{
}
Add(GetDataEx,1556754,489,154)
{
 link(Data,3763216:Stream,[])
}
Add(Memo,9017750,644,182)
{
 Left=10
 Top=60
 Width=365
 Height=95
 link(onChange,10403565:doText,[(693,188)(693,241)(521,241)(521,258)])
 link(Str,11202494:Result,[(650,170)(616,170)(616,348)(560,348)])
}
Add(Edit,10403565,532,252)
{
 Left=10
 Top=10
 Width=245
 link(onEnter,11202494:doStrCat,[(576,265)(576,289)(542,289)(542,314)])
}
Add(Button,9352866,644,315)
{
 Left=10
 Top=35
 Width=85
 Caption="Write"
 link(onClick,8406004:doConvert,[(692,321)(692,272)])
}
Add(Convertor,8406004,707,266)
{
 Mode=12
 link(onResult,2407830:doWriteFile,[(746,272)(746,253)(478,253)(478,222)])
 link(Data,9017750:Text,[(713,246)(650,246)])
}
Add(MultiElementEx,2183670,546,119)
{
 @Hint=#12:MessageError|
 link(Error,6675800:doText,[])
}
BEGIN_SDK
  Add(EditMultiEx,4470868,21,21)
  {
   WorkCount=#10:MassageErr|
   EventCount=#12:Error=Ошибка|
   Width=181
   Height=144
   link(MassageErr,9579324:doRead,[(31,27)(31,111)])
  }
  Add(StrList,6494328,42,35)
  {
   Strings=#0:|23:Нет доступа к Интернэту|101:Ошибка создания FTP-сессии%13%10Проверьте правильность ввода параметров%13%10Host, UserName, Password|22:Ошибка доступа к папке|24:Ошибка файловой операции|23:Ошибка доступа к файлу |0:|1: |
  }
  Add(ArrayRW,9579324,56,105)
  {
   link(onRead,1614930:doReplace,[])
   link(Array,6494328:Array,[])
  }
  Add(Replace,1614930,105,105)
  {
   SubStr="%13%10"
   DestStr="
"
   link(onReplace,4470868:Error,[(169,111)(169,27)])
  }
END_SDK
карма: 1

0
файлы: 1code_31391.txt [2.6KB] [275]
Ответов: 8927
Рейтинг: 823
#6: 2013-07-02 14:53:43 ЛС | профиль | цитата
suslik101 писал(а):
убрал кракозябры
delete_krakozaybru.jpg
карма: 19

0
файлы: 1delete_krakozaybru.jpg [44.2KB] [485]
Ответов: 16884
Рейтинг: 1239
#7: 2013-07-02 15:06:19 ЛС | профиль | цитата
А таки убрал
krjk.gif
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1krjk.gif [23.2KB] [427]
Разработчик
Ответов: 26161
Рейтинг: 2127
#8: 2013-07-02 16:47:28 ЛС | профиль | цитата
suslik101, на, жуй. Я проверил, у меня работает. Немного изменил твою схему

Add(MainForm,2953706,126,189)
{
 Height=277
}
Add(WinFTP,2407830,238,238)
{
 Directory="."
 RemoteName="list.txt"
 Point(onConnect)
 Point(onFindFile)
 Point(FoundIsDirectory)
 Point(FoundFileName)
 Point(FoundFileSize)
 Point(doDirectory)
 Point(onWrite)
 link(onError,794650:doWork2,[(277,244)(277,174)])
 link(onRead,12995982:doConvert,[])
 link(LocalName,1556754:Var2,[])
 link(onConnect,2407830:doReadFile,[(277,258)(277,286)(228,286)(228,258)])
 link(onWrite,14656438:doData,[(284,272)(284,188)])
}
Add(Button,11189587,126,231)
{
 Left=265
 Top=5
 Width=115
 Height=35
 Caption="Connection"
 link(onClick,16104834:doEvent1,[])
}
Add(StrCat,11202494,476,231)
{
 Str2="_end"
 link(onStrCat,9017750:doAdd,[(515,237)(515,216)(368,216)(368,230)])
}
Add(Convertor,12995982,315,245)
{
 Mode=11
 link(onResult,9017750:doText,[])
 link(Data,1556754:Var3,[(321,215)])
}
Add(MemoryStream,3763216,238,147)
{
 Point(doPosition)
}
Add(GetDataEx,1556754,238,210)
{
 link(Data,3763216:Stream,[])
}
Add(Memo,9017750,378,224)
{
 Left=10
 Top=60
 Width=365
 Height=175
 ScrollBars=2
 link(onChange,10403565:doText,[])
}
Add(Edit,10403565,427,224)
{
 Left=10
 Top=10
 Width=245
 Text=""
 link(onEnter,11202494:doStrCat,[])
}
Add(Button,9352866,322,301)
{
 Left=10
 Top=35
 Width=85
 Caption="Write"
 link(onClick,8406004:doConvert,[])
}
Add(Convertor,8406004,378,301)
{
 Mode=12
 link(onResult,15745710:doEvent1,[(417,307)(417,342)(116,342)(116,153)])
 link(Data,9017750:Text,[])
}
Add(MultiElementEx,2183670,378,168)
{
 @Hint=#12:MessageError|
 link(Error,2539807:doText,[])
}
BEGIN_SDK
  Add(EditMultiEx,4470868,21,21)
  {
   WorkCount=#10:MassageErr|
   EventCount=#12:Error=Ошибка|
   Width=139
   Height=95
   link(MassageErr,6494328:doGetString,[(32,27)(32,83)])
  }
  Add(StrList,6494328,42,35)
  {
   Strings=#0:|23:Нет доступа к Интернэту|101:Ошибка создания FTP-сессии%13%10Проверьте правильность ввода параметров%13%10Host, UserName, Password|22:Ошибка доступа к папке|24:Ошибка файловой операции|22:Ошибка доступа к файлу|21:Файл успешно записан |0:|1: |
   Point(onGetString)
   Point(doGetString)
   link(onGetString,1614930:doReplace,[])
  }
  Add(Replace,1614930,91,42)
  {
   SubStr="%13%10"
   DestStr="
"
   link(onReplace,4470868:Error,[(130,48)(130,27)])
  }
END_SDK
Add(StatusBar,2539807,427,168)
{
}
Add(Hub,15745710,147,147)
{
 OutCount=3
 link(onEvent1,3763216:doCopy,[])
 link(onEvent2,3763216:doPosition,[(214,160)(214,167)])
 link(onEvent3,2407830:doWriteFile,[(172,167)(172,265)])
}
Add(Hub,16104834,189,231)
{
 link(onEvent1,3763216:doClear,[(221,237)(221,160)])
 link(onEvent2,2407830:doOpen,[])
}
Add(DoData,14656438,315,182)
{
 Data=Integer(6)
 link(onEventData,794650:doWork3,[(361,188)])
}
Add(HubEx,794650,357,168)
{
 link(onEvent,2183670:MassageErr,[])
}
карма: 22

0
Ответов: 35
Рейтинг: 0
#9: 2019-10-14 10:23:13 ЛС | профиль | цитата
он просто создает текстовый файл, а как сделать чтоб выбрать фаЙл и его загрузить на сервер? по FTP

nesco писал(а):
suslik101, на, жуй. Я проверил, у меня работает. Немного изменил твою схему

Add(MainForm,2953706,126,189)
{
Height=277
}
Add(WinFTP,2407830,238,238)
{
Directory="."
RemoteName="list.txt"
Point(onConnect)
Point(onFindFile)
Point(FoundIsDirectory)
Point(FoundFileName)
Point(FoundFileSize)
Point(doDirectory)
Point(onWrite)
link(onError,794650:doWork2,[(277,244)(277,174)])
link(onRead,12995982:doConvert,[])
link(LocalName,1556754:Var2,[])
link(onConnect,2407830:doReadFile,[(277,258)(277,286)(228,286)(228,258)])
link(onWrite,14656438:doData,[(284,272)(284,188)])
}
Add(Button,11189587,126,231)
{
Left=265
Top=5
Width=115
Height=35
Caption="Connection"
link(onClick,16104834:doEvent1,[])
}
Add(StrCat,11202494,476,231)
{
Str2="_end"
link(onStrCat,9017750:doAdd,[(515,237)(515,216)(368,216)(368,230)])
}
Add(Convertor,12995982,315,245)
{
Mode=11
link(onResult,9017750:doText,[])
link(Data,1556754:Var3,[(321,215)])
}
Add(MemoryStream,3763216,238,147)
{
Point(doPosition)
}
Add(GetDataEx,1556754,238,210)
{
link(Data,3763216:Stream,[])
}
Add(Memo,9017750,378,224)
{
Left=10
Top=60
Width=365
Height=175
ScrollBars=2
link(onChange,10403565:doText,[])
}
Add(Edit,10403565,427,224)
{
Left=10
Top=10
Width=245
Text=""
link(onEnter,11202494:doStrCat,[])
}
Add(Button,9352866,322,301)
{
Left=10
Top=35
Width=85
Caption="Write"
link(onClick,8406004:doConvert,[])
}
Add(Convertor,8406004,378,301)
{
Mode=12
link(onResult,15745710:doEvent1,[(417,307)(417,342)(116,342)(116,153)])
link(Data,9017750:Text,[])
}
Add(MultiElementEx,2183670,378,168)
{
@Hint=#12:MessageError
link(Error,2539807:doText,[])
}
BEGIN_SDK
Add(EditMultiEx,4470868,21,21)
{
WorkCount=#10:MassageErr|
EventCount=#12:Error=Ошибка|
Width=139
Height=95
link(MassageErr,6494328:doGetString,[(32,27)(32,83)])
}
Add(StrList,6494328,42,35)
{
Strings=#023:Нет доступа к Интернэту|101:Ошибка создания FTP-сессии%13%10Проверьте правильность ввода параметров%13%10Host, UserName, Password|22:Ошибка доступа к папке|24:Ошибка файловой операции|22:Ошибка доступа к файлу|21:Файл успешно записан |01: |
Point(onGetString)
Point(doGetString)
link(onGetString,1614930:doReplace,[])
}
Add(Replace,1614930,91,42)
{
SubStr="%13%10"
DestStr="
"
link(onReplace,4470868:Error,[(130,48)(130,27)])
}
END_SDK
Add(StatusBar,2539807,427,168)
{
}
Add(Hub,15745710,147,147)
{
OutCount=3
link(onEvent1,3763216:doCopy,[])
link(onEvent2,3763216:doPosition,[(214,160)(214,167)])
link(onEvent3,2407830:doWriteFile,[(172,167)(172,265)])
}
Add(Hub,16104834,189,231)
{
link(onEvent1,3763216:doClear,[(221,237)(221,160)])
link(onEvent2,2407830:doOpen,[])
}
Add(DoData,14656438,315,182)
{
Data=Integer(6)
link(onEventData,794650:doWork3,[(361,188)])
}
Add(HubEx,794650,357,168)
{
link(onEvent,2183670:MassageErr,[])
}


|
2.3.2. Максимальный размер изображений или видео без спойлера не должен превышать по большей стороне 600 пикселей.

карма: 0

0
Ответов: 4630
Рейтинг: 749
#10: 2019-10-15 10:49:27 ЛС | профиль | цитата
В папке примеров - "Internet"->"FTP-Commander".
карма: 26

0
Разработчик
Ответов: 26161
Рейтинг: 2127
#11: 2019-10-15 13:28:23 ЛС | профиль | цитата
Netspirit писал(а):
В папке примеров - "Internet"->"FTP-Commander".

Не было у него этого файла, как и набора компонентов FTP_Client. Он мне в личку писал, пришлось все поразъяснять, не знаю, поставил, чи нет
карма: 22

0
11
ФорумыПомощь по пакетуЗаписывает пустой файл по FTP ← Ctrl1Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика