.WinSock=CREATEOBJECT("MSWinsock.Winsock")

.AddObject("oWinSock","winsock")
.WinSock = .oWinSock.Object

* Строка длиннее  78  символов?
IF LEN(m.tcString)> 78 
	* Да! Тогда произведём над ней необходимые манипуляции

************************
*вот без этого - зацикл будед
************************
	* если будет слово больше  78  символов - бьем его переносами
	* на куски по  77 -
	LOCAL lnWordCount, lcWord
	lnWordCount = GETWORDCOUNT(tcString,' -')
	nI= 1 
	DO WHILE m.nI <= m.lnWordCount
		lcWord = GETWORDNUM(m.tcString,m.nI,' -')
		IF LEN(m.lcWord)> 78 
			m.tcString = STUFF(m.tcString,AT(m.lcWord,m.tcString),LEN(m.lcWord),LEFT(m.lcWord, 77 )+'-'+SUBSTR(m.lcWord, 78 ))
			lnWordCount = GETWORDCOUNT(m.tcString,' -')
		ENDIF
		nI = m.nI + 1 
	ENDDO
************************

	* Разделим строку по разделителям, включая в массив разделители
	nLines = ALINES(aLn,m.tcString, 2 + 16 ," ",CHR( 9 ),";",'-')
	
	* Есть такие разделители в строке?
	IF m.nLines >  0 
		cRetVal = ''
		cStr = ''
		
		FOR nI= 1  TO m.nLines
			* Сравним сумму длин строки из массива с собираемой строкой
			* на длину больше  78  символов плюс  1  разделитель, то есть  79 
			IF LEN(m.cStr + m.aLn[m.nI]) >  79 
				* Если склеивание идёт не с первой строкой массива...
				IF m.nI >  1 
					* ... значит у нас уже есть в cStr строка, которая
					* не превышает нужной длины и к которой достаточно
					* добавить CRLF и пробел
					cRetVal = m.cRetVal + RTRIM(m.cStr, 0 ," ",CHR( 9 )) + CRLF &&+" "
					
					* Далее уменьшим текущий индекс, чтобы пройти
					* обработку этой строки из массива ещё раз
					nI = m.nI - 1 
					
					* И обнулим cStr, так как начинается новая строка
					cStr = ''
				ELSE
					* А здесь проверим превышение длины строки максимальных
					*  998  символов и если она превышает это значение, тогда
					* разделим её принудительно
					IF LEN(m.aLn[m.nI]) >  998 
						DO WHILE .T.
							IF LEN(m.aLn[m.nI]) >  998 
								cStr = m.cStr + SUBSTR(m.aLn[m.nI], 1 , 998 ) +CRLF
								aLn[m.nI] = SUBSTR(m.aLn[m.nI], 999 )
							ELSE
								cStr = m.cStr + m.aLn[m.nI]
								EXIT
							ENDIF
						ENDDO
					ELSE
						* Принимаем первую строку какая есть
						cStr = m.cStr + RTRIM(m.aLn[m.nI], 0 ," ",CHR( 9 ))+CRLF &&+" "
					ENDIF
				ENDIF
			ELSE
				* Склеиваем строки из массива в одну переменную
				cStr = m.cStr + m.aLn[m.nI]
			ENDIF
		ENDFOR

declare integer send in ws2_32.dll integer, string @, integer, integer
declare integer recv in ws2_32.dll integer, string @, integer, integer

local lcBuffer, ll_return_status, lcFDREAD , lnByteCount
with this
	m.lcBuffer = .get_null_terminal_string(.size_buffer)
	m.lcFDREAD = .int_n_str( 1 , 4 ) + .int_n_str(.hsocket, 4 )
	* SOCKET_ERROR
	do while socketselect( 0 ,@m.lcFDREAD, 0 , 0 , 0 ) <  1 
	enddo

	m.lnByteCount = recv(.hsocket,@m.lcBuffer,.size_buffer, 0 )

	store m.lnByteCount # SOCKET_ERROR to m.ll_return_status
	if m.ll_return_status
		.byte_count_in = .byte_count_in + m.lnByteCount
	endif
	.pop3_buffer = alltrim(m.lcBuffer)
	.recv_buffer = right(.pop3_buffer,len(.pop3_buffer)- 4 )
	if m.ll_return_status
		m.ll_return_status = .out_protocol('s',.alltrim(m.lcBuffer))
	else
		.out_message('Recv',WSAGetLastError())
	endif
endwith
return m.ll_return_status

m.lnByteCount = recv(.hsocket,@m.lcBuffer,.size_buffer, 0 )