A라는 클라이언트에서 B라는 서버로 데이타를 보낼때
5초동안 반복해서 보내고, 전송횟수를 구하고 싶은데...
이게 맞는지여?
고수들의 조언 바랍니다...
procedure TfrmClient.btnSendClick(Sender: TObject);
var
nOut : Integer; //<-- 데이타 전송 횟수 변수
nStartTime, nNowTime : LongInt;
begin
nOut := 0;
nStartTime := GetTickCount;
repeat
nNowTime := GetTickCount;
cskTx.Socket.SendBuf(aTxData, Length(aTxData));
Inc(nOut);
until ((nNowTime - nStartTime) = 5000) or ((nNowTime - nStartTime) > 5000);
end;
누구신지??? 저를 아시나요??? 이름을 밝히고 질문하시는것이 예의일거같은데...
뭘 하실려는지는 모르겠지만 서버와의 연결만 안 끊어지고 제대로 잘 보내진다면 특별히 이상한 코드는 아니네요... 가급적이면 예외처리를 해주시는것이 좋을듯 하군요... 특히 네트웍쪽은 언제 어떻게 잘못될지 모르기 때문에 ...
until ((nNowTime - nStartTime) = 5000) or ((nNowTime - nStartTime) > 5000);
>>>>>>
until (nNowTime - nStartTime) >= 5000);
시간은 데이터를 보내고 난 뒤에 얻는 것이 더 정확할거 같군요...
^^ 항상 즐코하세요...
초보델피언 wrote:
> A라는 클라이언트에서 B라는 서버로 데이타를 보낼때
> 5초동안 반복해서 보내고, 전송횟수를 구하고 싶은데...
> 이게 맞는지여?
> 고수들의 조언 바랍니다...
>
> procedure TfrmClient.btnSendClick(Sender: TObject);
> var
> nOut : Integer; //<-- 데이타 전송 횟수 변수
> nStartTime, nNowTime : LongInt;
> begin
> nOut := 0;
> nStartTime := GetTickCount;
>
> repeat
> nNowTime := GetTickCount;
>
> cskTx.Socket.SendBuf(aTxData, Length(aTxData));
>
> Inc(nOut);
>
> until ((nNowTime - nStartTime) = 5000) or ((nNowTime - nStartTime) > 5000);
>
> end;
>