Вверх ↑
Этот топик читают: Гость
Ответов: 101
Рейтинг: 3
#1: 2010-04-11 20:50:15 ЛС | профиль | цитата
Как отправить файл серверу
вариант 1.
у него появилься диалог для сохранения
вариант 2.
у него автоматически сохранялось и откривалось.
карма: 0

0
Ответов: 3349
Рейтинг: 233
#2: 2010-04-11 21:15:01 ЛС | профиль | цитата
StreamPack
StreamUnPack
------------ Дoбавленo в 21.15:
вот так
Add(MainForm,2953706,175,266)
{
link(onCreate,1277618:doEvent1,[])
}
Add(TCP_Server,13179667,287,280)
{
Port=80
DataType=3
link(onRead,4656024:doUnPack,[])
}
Add(ODialog,5748111,126,343)
{
link(onExecute,3296064:doOpen,[])
}
Add(FileStream,3296064,189,343)
{
link(onLoad,3606325:doPack,[])
}
Add(StreamUnPack,4656024,336,280)
{
DataCount=#4:file|
link(onUnPack,2744615:doExecute,[])
}
Add(TCP_Client,14765468,287,329)
{
Port=80
IP="127.0.0.1"
DataType=3
}
Add(Hub,1277618,224,280)
{
link(onEvent1,13179667:doOpen,[])
link(onEvent2,14765468:doOpen,[(262,293)(262,335)])
}
Add(StreamPack,3606325,238,343)
{
DataCount=#4:file|
link(onPack,14765468:doSend,[])
link(file,3296064:Stream,[(244,331)(64,331)(64,405)(195,405)])
}
Add(SDialog,2744615,420,280)
{
link(onExecute,2062270:doEvent1,[])
}
Add(FileStream,16700377,490,343)
{
Mode=1
Point(doCopyFromStream)
link(FileName,16428879:Value,[])
}
Add(DoData,8205502,336,336)
{
link(onEventData,8071723:doEvent1,[(427,342)(427,356)])
link(Data,4656024:file,[])
}
Add(Hub,2062270,462,280)
{
link(onEvent1,8205502:doData,[(546,286)(546,406)(324,406)(324,342)])
link(onEvent2,16428879:doValue,[])
}
Add(Memory,16428879,490,287)
{
}
Add(Hub,8071723,434,350)
{
link(onEvent1,16700377:doOpen,[(469,356)(469,349)])
link(onEvent2,16700377:doCopyFromStream,[])
}
Add(Button,6937871,77,343)
{
Left=75
Top=50
link(onClick,5748111:doExecute,[])
}


карма: 1

0
Ответов: 101
Рейтинг: 3
#3: 2010-04-11 21:47:59 ЛС | профиль | цитата

Ошибка

hiMainForm_10D16390.pas(141,25) Error: identifier idents no member "onUnPack"
hiMainForm_10D16390.pas(142,78) Error: identifier idents no member "doUnPack"
hiMainForm_10D16390.pas(165) Fatal: There were 2 errors compiling module, stopping
Error: Crogram FilesHiAsmcompilerfpcppc386.exe returned an error exitcode (normal if you did not specifiy a source file to be compiled)
карма: 0

0
Ответов: 5446
Рейтинг: 323
#4: 2010-04-11 21:49:20 ЛС | профиль | цитата
Обновись с SVN
карма: 1

0
Ответов: 4641
Рейтинг: 334
#5: 2010-04-11 21:49:23 ЛС | профиль | цитата
iarspider, опередил.
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 3349
Рейтинг: 233
#6: 2010-04-12 13:07:09 ЛС | профиль | цитата
а почему ppc386.exe?
карма: 1

0
Разработчик
Ответов: 26322
Рейтинг: 2147
#7: 2010-04-12 13:10:09 ЛС | профиль | цитата
Ivann писал(а):
а почему ppc386.exe?

Потому, что это -- FPC компилятор
карма: 22

0
Ответов: 101
Рейтинг: 3
#8: 2010-04-13 12:09:40 ЛС | профиль | цитата
вот так

А при сохранении видает имя -nul формат- All
И после сохранения не сохраняет.
карма: 0

0
Ответов: 3349
Рейтинг: 233
#9: 2010-04-13 12:39:11 ЛС | профиль | цитата
esc, передача только маленьких файлов.иначе надо данные дописовать
карма: 1

0
Ответов: 101
Рейтинг: 3
#10: 2010-04-13 20:44:44 ЛС | профиль | цитата
Насколько маленьких????
карма: 0

0
Ответов: 139
Рейтинг: 4
#11: 2010-04-13 20:53:48 ЛС | профиль | цитата
Мне кажется в схеме небольшая ошибка, поправил
code_17780.txt
карма: 0

0
файлы: 1code_17780.txt [1.4KB] [152]
Ответов: 4641
Рейтинг: 334
#12: 2010-04-13 20:53:57 ЛС | профиль | цитата
Ivann писал(а):
esc, передача только маленьких файлов.иначе надо данные дописовать

Ivann, ну что ты прям... я не знаю.. ну сказал А, скажи и Б

esc писал(а):
Насколько маленьких????

esc, а проверить самому не судьба? Так и будем каждую запятую спрашивать?
Ну возьми передай файл 100мб. потом 500мб, затем 1гб если получится. Вот и узнаешь все.

карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 101
Рейтинг: 3
#13: 2010-04-13 20:59:14 ЛС | профиль | цитата
У меня вообще все это не работает!!!
------------ Дoбавленo в 20.59:
Даже с 1 кб ом
карма: 0

0
Ответов: 139
Рейтинг: 4
#14: 2010-04-13 21:06:45 ЛС | профиль | цитата
esc писал(а):
У меня вообще все это не работает

попробуй исправленную схему и при сохранении пиши имя файа с расширением
карма: 0

0
Ответов: 101
Рейтинг: 3
#15: 2010-04-13 21:08:54 ЛС | профиль | цитата
А если сервер не знает расширения? Что тогда делать?
карма: 0

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