Вверх ↑
Этот топик читают: Гость
Ответов: 1326
Рейтинг: 68
#106: 2009-10-21 04:14:54 ЛС | профиль | цитата
Перестал компилироваться под FPC в последних версиях (http_server.sha)

Подготовка к сборке проекта...
Генерация кода целевого языка
Компоновка проекта...
Command line: fpc.exe '"C:\Program Files\HiAsm4.03b180\Elements\delphi\code\Project1.pas"' -Sd -Mdelphi '"-FEC:\Program Files\HiAsm4.03b180\"' '"-FUC:\Program Files\HiAsm4.03b180\Elements\delphi\code\units"' -FDtools\ -CX -dF_P
Free Pascal Compiler version 1.9.6 [2004/12/31] for i386
Copyright (c) 1993-2004 by Florian Klaempfl
Target OS: Win32 for i386
Compiling C:\Program Files\HiAsm4.03b180\Elements\delphi\code\Project1.pas
Compiling C:\Program Files\HiAsm4.03b180\Elements\delphi\code\hiMainForm_115CAC0.pas
Compiling C:\Program Files\HiAsm4.03b180\Elements\delphi\code\hiTCP_ServerEx_11557D0.pas
hiTCP_ServerEx_11557D0.pas(50,36) Error: Incompatible types: got "TClassTCP_ServerEx_11557D0" expected "TClassMultiBase"
hiTCP_ServerEx_11557D0.pas(65) Fatal: There were 1 errors compiling module, stopping
Error: C:\Program Files\HiAsm4.03b180\compiler\fpc\ppc386.exe returned an error exitcode (normal if you did not specifiy a source file to be compiled)
Сборка завершена.

карма: 2

0
Ответов: 5446
Рейтинг: 323
#107: 2009-10-21 13:13:36 ЛС | профиль | цитата
Konst, codegen пересобери
карма: 1

0
Ответов: 1326
Рейтинг: 68
#108: 2009-10-21 18:42:53 ЛС | профиль | цитата
iarspider, сейчас попробую, что то совсем странное стало твориться запускаю HiAsm 1 раз любой проект компилюруется и все - последующие ошибка:


Подготовка к сборке проекта...
Генерация кода целевого языка
Компоновка проекта...
Command line: fpc.exe '"C:\Program Files\HiAsm4.03b180\Elements\delphi\code\Project4.pas"' -Sd -Mdelphi '"-FEC:\Program Files\HiAsm4.03b180\"' '"-FUC:\Program Files\HiAsm4.03b180\Elements\delphi\code\units"' -FDtools\ -CX -dF_P
Free Pascal Compiler version 1.9.6 [2004/12/31] for i386
Copyright (c) 1993-2004 by Florian Klaempfl
Target OS: Win32 for i386
Compiling C:\Program Files\HiAsm4.03b180\Elements\delphi\code\Project4.pas
Compiling C:\Program Files\HiAsm4.03b180\Elements\delphi\code\hiMainForm_1258E90.pas
Compiling resource C:\Program Files\HiAsm4.03b180\Elements\delphi\code\allres.res
Project4.pas(19,1) Error: Error while linking
Project4.pas(19,1) Fatal: There were 1 errors compiling module, stopping
Closing script C:\Program Files\HiAsm4.03b180\ppas.bat
Error: C:\Program Files\HiAsm4.03b180\compiler\fpc\ppc386.exe returned an error exitcode (normal if you did not specifiy a source file to be compiled)
Сборка завершена.

------------ Дoбавленo в 18.45:
не помогло, попробую переустановить...
карма: 2

0
Ответов: 9906
Рейтинг: 351
#109: 2009-10-21 20:15:32 ЛС | профиль | цитата
на всякий случай...

В те стародавние времена, когда я работал в режиме перманентного свопинга (32М на борту), Error while linking у меня через раз случался. Не реже. Не говоря уже про время этого как бы "линкинга".

А заводить пути с пробелами и точками - мазохизм, в моем понимании. Konst, ты работать хочешь, или тестировать умение никсоидов писать под винду
карма: 9

0
Ответов: 5446
Рейтинг: 323
#110: 2009-10-21 20:34:32 ЛС | профиль | цитата
Galkov, а чего там тестировать? У них под никс-то не всегда получается...
карма: 1

0
Ответов: 1326
Рейтинг: 68
#111: 2009-12-17 21:13:23 ЛС | профиль | цитата
TCP_ServerEx выдает Runtime error при подключении клиента, эта же схема нормально работает в 4.2 179
Add(MainForm,6678,217,350)
{
Left=312
Top=322
Height=145
}
Add(Message,20231,385,350)
{
Message="Client disconnect!"
Caption="Server"
}
Add(Button,85596,483,259)
{
Left=200
Top=40
Font=[Arial,8,0,0,1]
Caption="close"
link(onClick,96010:doClose,[])
}
Add(TCP_Client,96010,574,252)
{
Port=180
IP="127.0.0.1"
link(onRead,14313:doAdd,[])
link(onConnect,36990:doMessage,[(633,265)(633,314)])
link(onDisconnect,90966:doMessage,[(625,272)(625,356)])
}
Add(Button,7637,217,189)
{
Left=20
Top=15
Font=[Arial,8,0,0,1]
Caption="open"
link(onClick,4557003:##open,[(279,195)(279,251)])
}
Add(Button,53265,217,259)
{
Left=20
Top=40
Font=[Arial,8,0,0,1]
Caption="close"
link(onClick,4557003:doClose,[(279,265)(279,258)])
}
Add(Button,24613,217,301)
{
Left=20
Top=65
Font=[Arial,8,0,0,1]
Caption="send"
Data=String(Hello!)
link(onClick,4557003:doSend,[(283,307)(283,265)])
}
Add(ListBox,92252,413,252)
{
Left=85
Top=15
Width=100
Height=70
Font=[Arial,8,0,0,1]
}
Add(Button,98765,483,301)
{
Left=200
Top=65
Font=[Arial,8,0,0,1]
Caption="send"
Data=String(I am Client!!)
link(onClick,96010:doSend,[(545,307)(545,272)])
}
Add(ListBox,14313,644,252)
{
Left=265
Top=15
Width=110
Height=70
Font=[Arial,8,0,0,1]
}
Add(Button,67336,483,217)
{
Left=200
Top=15
Font=[Arial,8,0,0,1]
Caption="open"
link(onClick,96010:doOpen,[(545,223)(545,258)])
}
Add(Message,4920,385,308)
{
Message="Client connect!"
Caption="Server"
}
Add(Message,90966,644,350)
{
Message="I'am disconnect!"
Caption="Client"
}
Add(Message,36990,644,308)
{
Message="I'am connected!"
Caption="Client"
}
Add(TCP_ServerEx,4557003,308,245)
{
ServerPort=180
link(onRead,92252:doAdd,[(393,251)(393,258)])
link(onConnect,4920:doMessage,[(372,258)(372,314)])
link(onDisconnect,20231:doMessage,[(362,265)(362,356)])
}
BEGIN_SDK
Add(EditMultiEx,9971778,3,3)
{
WorkCount=#6:##open|7:doClose|6:doSend|
EventCount=#6:onRead|9:onConnect|12:onDisconnect|
VarCount=#2:IP|6:Active|
Width=650
Height=333
link(doClose,916654:doClose,[(57,16)(57,181)])
link(doSend,916654:doSend,[(57,23)(57,188)])
link(IP,916654:IP,[(9,272)(125,272)])
link(Active,916654:Active,[(16,272)(118,272)])
}
Add(TCP_Connection,916654,112,175)
{
link(onRead,9971778:onRead,[(398,181)(398,9)])
link(onConnect,9971778:onConnect,[(398,188)(398,16)])
link(onDisconnect,9971778:onDisconnect,[(398,195)(398,23)])
}
END_SDK
Add(Timer,92181,217,399)
{
link(onTimer,1422106:doData,[])
}
Add(Label,82216,483,406)
{
Left=85
Top=90
Width=100
Font=[Arial,8,0,0,1]
}
Add(Case,14075018,329,399)
{
Value=Integer(1)
DataOnTrue=String(connect)
link(onNextCase,6963502:doData,[])
link(onTrue,2274620:doString,[(373,412)(373,468)])
}
Add(HubEx,12831850,462,406)
{
link(onEvent,82216:doText,[])
}
Add(DoData,1422106,280,399)
{
link(onEventData,14075018:doCase,[])
link(Data,4557003:Active,[(286,338)(321,338)])
}
Add(DoData,6963502,406,399)
{
link(onEventData,12831850:doWork1,[(466,405)])
}
Add(FormatStr,2274620,385,462)
{
link(onFString,12831850:doWork2,[(440,468)(440,412)])
link(Str2,4557003:IP,[(398,386)(314,386)])
}


карма: 2

0
Ответов: 2125
Рейтинг: 159
#112: 2009-12-17 22:46:27 ЛС | профиль | цитата
Кое-что изменилось в структуре генерируемого кода, а в данном элементе используется информация об этом.
Нужно заменить прилагаемый файл.
карма: 1

1
файлы: 1hitcp_serverex.rar [836B] [254]
Голосовали:Konst
Ответов: 1326
Рейтинг: 68
#113: 2009-12-17 22:54:03 ЛС | профиль | цитата
tsdima, спасибо теперь работает
карма: 2

0
Ответов: 4641
Рейтинг: 334
#114: 2009-12-17 23:21:10 ЛС | профиль | цитата
tsdima писал(а):
hitcp_serverex.rar

tsdima, а на SVN
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Разработчик
Ответов: 25681
Рейтинг: 2087
#115: 2009-12-18 01:48:32 ЛС | профиль | цитата
Ravilr писал(а):
а на SVN

Я тоже удивлен, что он его не закоммитил
карма: 20

0
Ответов: 2125
Рейтинг: 159
#116: 2009-12-18 11:26:59 ЛС | профиль | цитата
А я после переезда сайта до сих пор аккаунта на SVN не имею
карма: 1

0
Разработчик
Ответов: 25681
Рейтинг: 2087
#117: 2009-12-18 17:02:43 ЛС | профиль | цитата
tsdima, а чего Dilmy не попросишь, делов-то
карма: 20

0
Ответов: 2125
Рейтинг: 159
#118: 2009-12-18 21:32:24 ЛС | профиль | цитата
Залил на SVN.
карма: 1

0
Разработчик
Ответов: 4680
Рейтинг: 423
#119: 2010-03-25 14:02:11 ЛС | профиль | цитата
tsdima, у меня вопрос:
Растолкуй, пожалуйста, каким образом связываются компоненты TCP_ServerEx и TCP_Connection, каким образом при подсоединении клиента сервер берет ссылку на TCP_Connection и ему передает данные? Желательно представить код и как можно подробнее описать что делает (и как) каждый метод
карма: 10
0
Ответов: 2125
Рейтинг: 159
#120: 2010-03-25 20:42:04 ЛС | профиль | цитата
При подсоединении клиента делается то-же самое, что и ##add для динамического мультика, т.е. создаётся новый мультик. Ссылка на TCP_Connection берётся не совсем легально, а исходя из того, что объект, который суть мультик, сгенерирован особым образом: первое его поле это THIEditMultiEx, а второе THITCP_Client:

TMainClass = class(TClassMultiBase)
emx:THIEditMultiEx;
cli:THITCP_Client;
end;
карма: 1

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