Delphi: TTcpServer, сброс соединения при чтении

Question

Я пытаюсь реализовать Fitnesse Slim server для delphi, но у вас есть некоторые проблемы с сообщением.

Fitnesse запустит мой процесс и предоставит мне номер порта в качестве аргумента командной строки.

Тогда я должен создать сокет в указанном номере порта, и Fitnesse подключится к этому порту.

Я использую TTcpServer для работы:

TcpServer1.LocalPort := ParamStr(ParamCount); 
TcpServer1.Active := true; 

В OnAccepted() -Event, я посылаю версию протокола для использования, как указано в спецификации.

procedure TForm1.TcpServer1Accept(Sender: TObject; 
    ClientSocket: TCustomIpClient); 
var 
    s: ansistring; 
begin 
    ClientSocket.Sendln('Slim -- V0.0', #10); 
    setLength(s, 6); 
    ClientSocket.ReceiveBuf(s, 6); 
end; 

Когда я называю ReceiveBuf(), процесс заканчивается, и FitNesse бросает исключение:

java.net.SocketException: Connection reset 

Я использовал oSpy, чтобы увидеть, что присылают и получил. Это показывает, что после того, как мой код отправит версию протокола, фитнес отправит сообщение назад и что соединение будет сброшено, когда я попытаюсь получить это сообщение.

Кто-нибудь знает, в чем причина этого? Я делаю что-то совершенно не так?

Btw, все работает нормально, когда я использую java slim server, который поставляется с адаптером. Затем oSpy показывает одно и то же сообщение, вплоть до первого чтения. Хотя моя попытка прочитать не удается, эта работа работает так, как ожидалось.

Answer 1

посмотреть на данном веб-сайте для delphi Fit server + исходный код в