Build start...
Generated code
Create project...
Command line: dcc32.exe "C:\Program Files\HiAsm\Elements\Delphi\code\_проба.dpr" "-UC:\Program Files\HiAsm\чат\." -Q "-EC:\Program Files\HiAsm\чат\
Borland Delphi Version 12.0 Copyright (c) 1983,98 Inprise Corporation
C:\Program Files\HiAsm\Elements\Delphi\code\TCP.pas(82) Warning: Return value of function 'MWnd' might be undefined
C:\Program Files\HiAsm\Elements\Delphi\code\TCP.pas(117) Warning: Return value of function 'ListenFunc' might be undefined
C:\Program Files\HiAsm\Elements\Delphi\code\TCP.pas(122) Warning: Return value of function 'ReadFunc' might be undefined
C:\Program Files\HiAsm\Elements\Delphi\code\TCP.pas(16) Hint: Private symbol 'FHandle' declared but never used
C:\Program Files\HiAsm\Elements\Delphi\code\hiTCP_Client.pas(38) Warning: Method 'Destroy' hides virtual method of base type 'TObject'
C:\Program Files\HiAsm\Elements\Delphi\code\hiTCP_Client.pas(84) Hint: Variable 'dt' is declared but never used in 'THITCP_Client._OnRes'
C:\Program Files\HiAsm\Elements\Delphi\code\hiTCP_Client.pas(23) Hint: Private symbol '_OnError' declared but never used
C:\Program Files\HiAsm\Elements\Delphi\code\hiTCP_ServerEx.pas(51) Error: Undeclared identifier: 'AddInstance'
C:\Program Files\HiAsm\Elements\Delphi\code\hiTCP_ServerEx.pas(54) Error: Undeclared identifier: 'Attach'
C:\Program Files\HiAsm\Elements\Delphi\code\hiTCP_ServerEx.pas(65) Error: Undeclared identifier: 'RemoveInstance'
C:\Program Files\HiAsm\Elements\Delphi\code\_проба.dpr(12) Fatal: Could not compile used unit 'hiTCP_ServerEx.pas'
End build
[size=-2]------ Добавлено в 06:00
Всё заработало
[size=-2]------ Добавлено в 07:42
Ну во запустил прогу а другие компы подключится не могут
вот приммер
Add(TCP_ServerEx,4763630,168,193)
{
link(onRead,5150951:doAdd,[])
link(onConnect,5753698:doEvent1,[(210,206)(210,254)(88,254)(88,290)])
link(onDisconnect,6999214:doMessage,[(191,213)(191,269)])
link(Data,8898691:Text,[(174,185)(174,192)])
}
BEGIN_SDK
Add(EditMultiEx,2636834,3,3)
{
WorkCount=#28:doClose=закрывает соединение|16:doSend=отправить|
EventCount=#6:onRead|9:onConnect|12:onDisconnect|
VarCount=#6:Active|2:IP|
DataCount=#24:Data=данные для отправки|
link(doClose,2731795:doClose,[(19,9)(19,111)])
link(doSend,2731795:doSend,[(19,16)(19,118)])
link(Active,2731795:Active,[(9,170)(41,170)])
link(IP,2731795:IP,[(16,170)(48,170)])
}
Add(TCP_Connection,2731795,35,105)
{
link(onRead,2636834:onRead,[(185,111)(185,9)])
link(onConnect,2636834:onConnect,[(185,118)(185,16)])
link(onDisconnect,2636834:onDisconnect,[(185,125)(185,23)])
link(Data,2636834:Data,[(41,54)(9,54)])
}
END_SDK
Add(GetData,3124487,154,256)
{
link(Data,4763630:Active,[(160,241)(174,241)])
}
Add(Hub,5753698,98,284)
{
link(onEvent1,8721564:doCompare,[(138,290)(138,346)])
link(onEvent2,8309248:doCompare,[(138,297)(138,311)])
}
Add(If_else,8721564,154,340)
{
Op2=Integer(1)
link(onFalse,11383307:doMessage,[])
link(Op1,3124487:Data1,[])
}
Add(If_else,8309248,154,305)
{
Op2=Integer(0)
link(onFalse,5349469:doMessage,[(191,318)(191,311)])
link(Op1,3124487:Data2,[(160,297)(167,297)])
}
Add(Message,11383307,196,340)
{
Message="готово"
Caption="моединение"
}
Add(Message,5349469,196,305)
{
Message="не подключен"
Caption="моединение"
}
Add(Button,1870089,98,242)
{
Left=10
Top=130
Width=70
Caption="отправить"
link(onClick,4763630:doSend,[(145,248)(145,206)])
}
Add(Button,3516874,98,193)
{
Left=340
Top=100
Width=45
Caption="откл"
link(onClick,4763630:doClose,[(149,199)(149,199)])
}
Add(Edit,8898691,168,151)
{
Left=10
Top=100
Width=320
Hint="данные для отправки"
Text="данные для отправки"
}
Add(Memo,5150951,238,193)
{
Left=10
Top=10
Width=370
}
Add(Message,6999214,196,263)
{
Message="Дисконект"
Caption="Дисконект"
}
Add(Edit,2869430,238,263)
{
Left=200
Top=130
Width=185
link(Str,4763630:IP,[(244,248)(181,248)])
}
Поиск
Друзья
Администрация