Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

ðÏÞÔÁ-2

2 views
Skip to first unread message

Victor Metelitsa

unread,
Nov 21, 2005, 2:26:11 AM11/21/05
to
Теперь перейдём к POP3.

popClient := Pop3Client host: 'xxx'.
popClient user: (NetUser username: 'xxx' password: 'xxx').
self halt.
popClient
connect;
login.
message := popClient retrieveMessage: 1.
mimeMsg := MailMessage readFrom: message readStream.
popClient disconnect.

Это вновь не работает из-за проблем с кодировками.

NetPop3Client>>connect
| socket |
self state: Pop3AuthorizationState new.
(socket := self createSocket) isNil ifTrue: [^NetClientError
signalWith: #connection].
connection := ExternalConnection new.
connection input: socket; output: socket.
stream := connection readAppendStream.
stream lineEndTransparent.
self waitForResponse

ExternalConnection>>readAppendStream
^(self withEncoding: #default) readAppendStream

Это надо заменить на

NetPop3Client>>connect
| socket |
self state: Pop3AuthorizationState new.
(socket := self createSocket) isNil ifTrue: [^NetClientError
signalWith: #connection].
connection := ExternalConnection new.
connection input: socket; output: socket.
stream := connection readAppendStream_iso8859_1.
stream lineEndTransparent.
self waitForResponse

ExternalConnection>>readAppendStream_iso8859_1
"Answer a readAppendStream on the receiver."

^(self withEncoding: #'iso8859-1') readAppendStream

--
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru

0 new messages