[lnkForumImage]
TotalShareware - Download Free Software
Confronta i prezzi di migliaia di prodotti.
Asp Forum
 Home | Login | Register | Search 


 

Forums >

ntu-kpi.comp.programming

[q] Delphi - mail

Nikitich

3/11/2005 10:57:00 PM

ËÁË ÎÁ äÅÌØÆÅ ÍÏÖÎÏ ÒÁÂÏÔÁÔØ Ó pop3 ÐÒÏÔÏËÏÌÏÍ, ÉÓÐÏÌØÚÕÑ TClientSocket?
ÔÏ ÅÓÔØ, Ñ ÐÏÄËÌÀÞÉÌÓÑ, ÐÏÌÕÞÉÌ ÓÏÏÂÝÅÎÉÅ ÔÉÐÁ
+OK Cubic Circle's v1.31 1998/05/13 POP3 ready
<5985000054213242@viii.ntu-kpi.kiev.ua>
Á ËÁË ÂÙÔØ ÄÁÌØÛÅ?
Ñ ÚÎÁÀ ËÁËÉÅ ËÏÍÁÎÄÙ ÐÏÓÙÌÁÔØ, ÎÏ ËÁË ÉÈ ÏÔÐÒÁ×ÌÑÔØ ÎÁ ÓÅÒ×ÁË É ÐÏÌÕÞÉÔØ
ÏÔ×ÅÔ? Á ÔÏ Ñ ÞÔÏ-ÔÏ ÎÅÐÒÁ×ÉÌØÎÏ ÄÅÌÁÀ :( (ÞÅÓÔÎÏ ÐÒÉÚÎÁÀÓØ, Ó ÓÅÔØÀ ÎÅ
ÒÁÂÏÔÁÌ îéëïçäá, ÐÏÔÏÍÕ ÍÎÏÇÏÇÏ ÎÅ ÛÁÒÀ):

procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText(Edit1.Text);
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
box.Lines.Add('read : '+ClientSocket1.Socket.ReceiveText);
end;

procedure TForm1.ClientSocket1Write(Sender: TObject;
Socket: TCustomWinSocket);
begin
box.Lines.Add('Write : '+ClientSocket1.Socket.ReceiveText);
end;

ÚÁÒÁÎÅÅ ÓÐÁÓÉÂÏ, ÅÓÌÉ ×Ù ÄÏÞÉÔÁÌÉ ÁÖ ÄÏ ÓÀÄÁ :)
--
îéëÉÔÉÞ
4 Answers

Delimer

3/12/2005 4:16:00 AM

0

&#203;&#207;&#199;&#196;&#193; &#207;&#212;&#211;&#217;&#204;&#193;&#197;&#219;&#216; &#211;&#212;&#210;&#207;&#203;&#213; &#207;&#206;&#193; &#196;&#207;&#204;&#214;&#206;&#193; &#218;&#193;&#203;&#193;&#206;&#222;&#193;&#215;&#193;&#212;&#216;&#211;&#209; &#197;&#206;&#212;&#197;&#210;&#207;&#205; (&#211;&#201;&#205;&#215;&#207;&#204; #13)

> &#193; &#203;&#193;&#203; &#194;&#217;&#212;&#216; &#196;&#193;&#204;&#216;&#219;&#197;?
> &#209; &#218;&#206;&#193;&#192; &#203;&#193;&#203;&#201;&#197; &#203;&#207;&#205;&#193;&#206;&#196;&#217; &#208;&#207;&#211;&#217;&#204;&#193;&#212;&#216;, &#206;&#207; &#203;&#193;&#203; &#201;&#200; &#207;&#212;&#208;&#210;&#193;&#215;&#204;&#209;&#212;&#216; &#206;&#193; &#211;&#197;&#210;&#215;&#193;&#203; &#201; &#208;&#207;&#204;&#213;&#222;&#201;&#212;&#216;
> &#207;&#212;&#215;&#197;&#212;? &#193; &#212;&#207; &#209; &#222;&#212;&#207;-&#212;&#207; &#206;&#197;&#208;&#210;&#193;&#215;&#201;&#204;&#216;&#206;&#207; &#196;&#197;&#204;&#193;&#192; :( (&#222;&#197;&#211;&#212;&#206;&#207; &#208;&#210;&#201;&#218;&#206;&#193;&#192;&#211;&#216;, &#211; &#211;&#197;&#212;&#216;&#192; &#206;&#197;
> &#210;&#193;&#194;&#207;&#212;&#193;&#204; &#238;&#233;&#235;&#239;&#231;&#228;&#225;, &#208;&#207;&#212;&#207;&#205;&#213; &#205;&#206;&#207;&#199;&#207;&#199;&#207; &#206;&#197; &#219;&#193;&#210;&#192;):
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> ClientSocket1.Socket.SendText(Edit1.Text);
> end;
>
> procedure TForm1.ClientSocket1Read(Sender: TObject;
> Socket: TCustomWinSocket);
> begin
> box.Lines.Add(''read : ''+ClientSocket1.Socket.ReceiveText);
> end;
>
> procedure TForm1.ClientSocket1Write(Sender: TObject;
> Socket: TCustomWinSocket);
> begin
> box.Lines.Add(''Write : ''+ClientSocket1.Socket.ReceiveText);
> end;
>
> &#218;&#193;&#210;&#193;&#206;&#197;&#197; &#211;&#208;&#193;&#211;&#201;&#194;&#207;, &#197;&#211;&#204;&#201; &#215;&#217; &#196;&#207;&#222;&#201;&#212;&#193;&#204;&#201; &#193;&#214; &#196;&#207; &#211;&#192;&#196;&#193; :)
> --
> &#238;&#233;&#235;&#201;&#212;&#201;&#222;
>

Moderator

3/12/2005 10:41:00 AM

0


Sat, 12 Mar 2005 04:16:29 +0000 (UTC)
"Delimer" <destroyer@its.ntu-kpi.kiev.ua>

uAIA?AIEA [*] -- EUAUOI?IIA AEOEOI?AIEA.


* On Sat, 12 Mar 2005 04:16:29 +0000 (UTC) you wrote:

> EICAA IOOUIAAUO OOOIEO IIA AIIOIA UAEAI?A?AOOON AIOAOII (OEI?II #13)

> > A EAE AUOO AAIOUA?
> > N UIAA EAEEA EIIAIAU ?IOUIAOO, II EAE EE IO?OA?INOO IA OAO?AE E ?IIO?EOO
> > IO?AO? A OI N ?OI-OI IA?OA?EIOII AAIAA :( (?AOOII ?OEUIAAOO, O OAOOA IA
> > OAAIOAI ieeicaa, ?IOIIO IIICICI IA UAOA):
> >
> > procedure TForm1.Button1Click(Sender: TObject);
> > begin
> > ClientSocket1.Socket.SendText(Edit1.Text);
> > end;
> >
> > procedure TForm1.ClientSocket1Read(Sender: TObject;
> > Socket: TCustomWinSocket);
> > begin
> > box.Lines.Add(''read : ''+ClientSocket1.Socket.ReceiveText);
> > end;
> >
> > procedure TForm1.ClientSocket1Write(Sender: TObject;
> > Socket: TCustomWinSocket);
> > begin
> > box.Lines.Add(''Write : ''+ClientSocket1.Socket.ReceiveText);
> > end;
> >
> > UAOAIAA O?AOEAI, AOIE ?U AI?EOAIE AO AI OAAA :)
> > --
> > ieeEOE?
> >

--
With Respect, ICQ# 34006064 ftp://reali...
Yuriy [haze at reality.org.ua] [Ahraywah Ohmankogah Skeeda]

np: /* silence */

Nikitich

3/12/2005 9:33:00 PM

0

:( &#215;&#211;&#197; &#210;&#193;&#215;&#206;&#207; &#206;&#197; &#203;&#193;&#212;&#201;&#212;. &#208;&#210;&#207;&#194;&#207;&#215;&#193;&#204; &#212;&#193;&#203;:
procedure TForm1.Button1Click(Sender: TObject);
begin
box.Lines.Add(Edit1.Text);
ClientSocket1.Socket.SendText( Edit1.Text + #13 );
end;

--
&#238;&#233;&#235;&#201;&#212;&#201;&#222;

Chapaev

3/14/2005 9:10:00 AM

0

&#238;&#213;, &#203;&#193;&#203; &#212;&#193;&#205; &#194;&#217;&#204;&#207; &#215; &#219;&#197;&#211;&#212;&#163;&#210;&#203;&#197;, &#209; &#206;&#197; &#208;&#207;&#205;&#206;&#192;, &#215; &#211;&#197;&#205;&#163;&#210;&#203;&#197; &#196;&#197;&#204;&#193;&#192; &#212;&#193;&#203;, &#206;&#193;&#208;&#210;&#201;&#205;&#197;&#210;:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient;

type
TForm1 = class(TForm)
Client: TIdTCPClient;
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
S:string;
begin
Client.Connect();
Memo1.Lines.Add(Client.ReadLn());
Client.WriteLn(''USER cooluser'');
Memo1.Lines.Add(Client.ReadLn());
Client.WriteLn(''PASS coolpassword'');
Memo1.Lines.Add(Client.ReadLn());
Client.WriteLn(''LIST'');
repeat
S:=Client.ReadLn();
Memo1.Lines.Add(S);
until S=''.'';
Client.WriteLn(''QUIT'');
Memo1.Lines.Add(Client.ReadLn());
Client.Disconnect;
end;

end.