Add(MainForm,2652884,49,98)
{
Left=20
Top=105
link(onCreate,6845417:##open,[])
}
Add(TCP_ServerEx,6845417,112,112)
{
}
BEGIN_SDK
Add(EditMultiEx,7280317,21,21)
{
WorkCount=#6:##open|
}
Add(TCP_Connection,4807985,140,105)
{
link(onRead,148933:doSend,[(191,111)(191,132)])
link(onConnect,148933:doOpen,[])
link(onDisconnect,148933:doClose,[])
}
Add(TCP_Client,148933,210,112)
{
Port=80
IP="192.1.1.1"
MakeExt(Port,,Port)
MakeExt(IP,,IP)
link(onRead,4807985:doSend,[(255,118)(255,98)(128,98)(128,118)])
link(onDisconnect,2516996:doTimer,[(266,132)(266,86)(65,86)(65,111)])
}
Add(Timer,2516996,77,105)
{
Interval=1
Enable=1
AutoStop=1
link(onTimer,4807985:doClose,[])
}
END_SDK
ServerPort это порт на том компе, где будет стоять ретранслятор, а Port и IP это как раз данные вышестоящего прокси.
Да, кстати, TCP.pas нужно обновить с SVN http://hiasm.googlecode.com/svn/elements/delphi/code/TCP.pas