unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ICQClient, mmsystem, StdCtrls, sButton, sSkinManager,
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, ShellApi;

type
TForm1 = class(TForm)
ICQClient1: TICQClient;
sSkinManager1: TsSkinManager;
sButton1: TsButton;
IdHTTP1: TIdHTTP;
procedure FormCreate(Sender: TObject);
procedure ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
procedure sButton1Click(Sender: TObject);
procedure ICQClient1AuthRequest(Sender: TObject; UIN, Reason: String);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
ip : string;
tmpstr:PAnsiChar;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
ICQClient1.UIN:=630253583;
ICQClient1.Password:='';
ICQClient1.Login();
if IC ... Читать дальше »

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdCoder, IdCoder3to4, IdCoderUUE, IdCoderXXE, IdBaseComponent,
sSkinManager, StdCtrls, sRadioButton, sButton, sMemo, sDialogs, ComCtrls,
sRichEdit, IdCoderMIME, inifiles, Menus, sPageControl, sEdit, sGroupBox,
ExtCtrls, sLabel, Buttons, sBitBtn, sCheckBox, ImgList, acAlphaImageList, SHFolder,
IdAntiFreezeBase, IdAntiFreeze, IdMessage, IdPOP3, IdComponent,
IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, IdCookieManager,
sComboBox, IdCoderQuotedPrintable;

type
TForm1 = class(TForm)
sPageControl1: TsPageControl;
sTabSheet1: TsTabSheet;
sButton1: TsButton;
sRadioButton1: TsRadioButton;
sRadioButton2: TsRadioButton;
sButton2: TsButton;
sButton3: TsButton;
sMemo1: TsMemo;
sSkinManager1: TsSkinManager;
IdEncoderXXE1: TIdEncoderXXE;
IdDecoderXXE1: TIdDecoderXXE;
sOpenDialog1 ... Читать дальше »