TTcpServer -> TTcpClient
5 отговора
145 прегледа
TTcpServer -> TTcpClient
Здравейте!
Имам проблем с тези компоненти. Имам две програми, които трябва да момуникират от различни компютри, като една е клиент (могат да са няколко), а другата - сървър. Пращам съобщение от клиента до сървара, с сървара го чета и обработвам, но си нямам и на идеа как да отговоря на клиента.
За да пратя от клиента до сървара ползвам : Sendln(съобщение); //като преди това съм задал RmoteHost и RemotePort.
В сърварната програма на TcpServer.OnAccept правя това :
var s, ans: string;
begin
s := ClientSocket.Recieveln();
.....следва код за анализиране на s в следствие на което запълвам ans като отговор на s....
ClientSocket.Sendln(ans);
end;
Дотук със сърварната част, предполагам, че нямам грешка там. Как клиента може да прочете изпратеното (ans) от сървара ???
Ще съм ви много благодарен ако ми обясните като на първолак.
Имам проблем с тези компоненти. Имам две програми, които трябва да момуникират от различни компютри, като една е клиент (могат да са няколко), а другата - сървър. Пращам съобщение от клиента до сървара, с сървара го чета и обработвам, но си нямам и на идеа как да отговоря на клиента.
За да пратя от клиента до сървара ползвам : Sendln(съобщение); //като преди това съм задал RmoteHost и RemotePort.
В сърварната програма на TcpServer.OnAccept правя това :
var s, ans: string;
begin
s := ClientSocket.Recieveln();
.....следва код за анализиране на s в следствие на което запълвам ans като отговор на s....
ClientSocket.Sendln(ans);
end;
Дотук със сърварната част, предполагам, че нямам грешка там. Как клиента може да прочете изпратеното (ans) от сървара ???
Ще съм ви много благодарен ако ми обясните като на първолак.
Re: TTcpServer -> TTcpClient
Еми... има 2 проблема 
:
1. Не разбирам руски (поправимо).
2. Тези работи ги имам описани в една книшка за Delphi 5, но има разлика между тях и моя случай. Компонентите за TCP/IP комуникация в Delphi 5 се различават от тези в Delphi 7. Delphi 5 - TClientSocket, TServerSocket; Delphi 7 - TTcpClient, TTcpServer. Това че са с различни имена не ми пречи, но методите, събитията и всичко останало също се различават коренно.
(не съм малоумен, млад съм (15г) )
P.S. Отново благодаря. Срам ме е от себе си
:
1. Не разбирам руски (поправимо).
2. Тези работи ги имам описани в една книшка за Delphi 5, но има разлика между тях и моя случай. Компонентите за TCP/IP комуникация в Delphi 5 се различават от тези в Delphi 7. Delphi 5 - TClientSocket, TServerSocket; Delphi 7 - TTcpClient, TTcpServer. Това че са с различни имена не ми пречи, но методите, събитията и всичко останало също се различават коренно.
(не съм малоумен, млад съм (15г) )
P.S. Отново благодаря. Срам ме е от себе си
Re: TTcpServer -> TTcpClient
Не само имената им са различни - те направо са си други компоненти :)
Това, което е за Делфи 7 използва Indy компонентите. Те са безплатни и определено са по-добри. Сайтът им мисля че бе [линк]. Има си добро хелпче, само че се дърпа отделно от сорса. Дръпни си и него.
Това, което е за Делфи 7 използва Indy компонентите. Те са безплатни и определено са по-добри. Сайтът им мисля че бе [линк]. Има си добро хелпче, само че се дърпа отделно от сорса. Дръпни си и него.
в отговор на andrew_nikoloff
#6
Re: TTcpServer -> TTcpClient
Благодаря. Реших си проблема. Грешката ми е била в клиента. И приемането и изпращането и закриването във връзката трябвало да бъдат в ОнЦоннект. (не мога да превключа на латиница, ама че работа
). Сега без проблеми приемам съобщения и от двете страни. Много благодаря на всички за помощта!
). Сега без проблеми приемам съобщения и от двете страни. Много благодаря на всички за помощта!