ychatu8.pas

来自「Yahoo Messenger for Mobile」· PAS 代码 · 共 148 行

unit YchatU8;

interface

uses
  Windows, Messages, SysUtils,  Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls, ExtCtrls, DynamicSkinForm;

type
  TForm8 = class(TForm)
    ListBox1: TListBox;
    ListBox2: TListBox;
    Panel1: TPanel;
    ServComboBox: TComboBox;
    Button1: TButton;
    ComboBox1: TComboBox;
    Label1: TLabel;
    procedure ListBox1DblClick(Sender: TObject);
    procedure ListBox2DblClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;
  RoomID,DataString: String;

implementation

uses YchatU1, YchatU4, YchatU5, YchatU7, YchatU2, YchatU22, YchatU10;

{$R *.dfm}

procedure TForm8.ListBox1DblClick(Sender: TObject);
Var
 P1,P2,N,I: Integer;
 Tmp: String;
begin
 N:=0;
  ListBox2.Clear;
  For I:=0 To ListBox1.Items.Count-1 Do
      If ListBox1.Selected[i]=true Then
        N:=I;
     Tmp:=ListBox1.Items[N];
     P1:=Pos(' ',Tmp);
     P2:=Pos(':',Tmp);
     Tmp:=Copy(Tmp,P1,P2-P1);
     RoomID:=Trim(Tmp);
     Panel1.Caption:='Room ID: '+Tmp;
     TgetRoomList2.Create('insider.msg.yahoo.com','RoomList',Cookie,RoomID);
  //   Serverlist.Active:=True;
end;

procedure TForm8.ListBox2DblClick(Sender: TObject);
Var
 P1,P2,N,I: Integer;
 Tmp: String;
begin
//Form1.BumpKnocks:=0;
If Not Form2.RadioButton4.Checked Then
Begin
 N:=0;
  For I:=0 To ListBox2.Items.Count-1 Do
      If ListBox2.Selected[i]=true Then
        N:=I;
     Tmp:=ListBox2.Items[N];
       P1:=1;
       P2:=Pos(':',Tmp);
       RoomID:=Copy(Tmp,P1,P2-P1);
       Delete(Tmp,1,Length(RoomID)+1);
       Tmp:=Trim(Copy(Tmp,1,Pos('(',Tmp)-1));
       Form1.LastCat:=Trim(RoomID);
       Form2.RoomBox.Text:=Tmp+'::'+RoomID;
       Form1.SendText(Form1.JoinRoom(LoggedInName,Tmp+'::'+RoomID));
//     Panel1.Caption:='Room ID: '+Tmp;
     Form8.Panel1.Caption:=RoomID+':'+Tmp;
     Form7.Close;
     Form8.Close;
  End
   else
  Begin
     N:=0;
     For I:=0 To ListBox2.Items.Count-1 Do
      If ListBox2.Selected[i]=true Then
        N:=I;
     Tmp:=ListBox2.Items[N];
     P1:=1;
      If Pos('( Users: ',Tmp)>0 Then
      Begin
       P2:=Pos(':',Tmp);
       RoomID:=Copy(Tmp,P1,P2-P1);
       Delete(Tmp,1,Length(RoomID)+1);
       Tmp:=Trim(Copy(Tmp,1,Pos('(',Tmp)-1));
       Form1.LastCat:=RoomID;
//       Form1.SendText(Form1.JoinRoom(LoggedInName,Tmp+'::'+RoomID));
//     Panel1.Caption:='Room ID: '+Tmp;
       Form8.Panel1.Caption:=RoomID+':'+Tmp;
//       Form2.
       Form1.SendText(Form1.JoinRoom(LoggedInName,Tmp+'::'+RoomID));
      End
       else
      Begin
        Form1.SendText(Form1.JoinRoom(LoggedInName,Tmp+'::'+RoomID));
      End;
     Form7.Close;
     Form8.Close;
  End;
end;


procedure TForm8.FormCreate(Sender: TObject);
begin
RoomID:='';
end;

procedure TForm8.Button1Click(Sender: TObject);
begin
// Button1.Enabled:=False;
 ListBox1.Clear;
 If Form8.ServComboBox.Items.IndexOf(Form8.ServComboBox.Text)=-1 Then
   Form8.ServComboBox.Items.Insert(0,Form8.ServComboBox.Text);
//   TgetRoomList.Create(ComboBox1.Text,'RoomCat',Cookie,RoomID,ListBox1)
   TgetRoomList2.Create(Form8.ServComboBox.Text,'RoomCat',Cookie,RoomID);
end;

procedure TForm8.FormShow(Sender: TObject);
begin
If Not Form2.RadioButton4.Checked Then
 Begin
 If Trim(ListBox1.Items.Text)='' Then
  // TgetRoomList.Create(ComboBox1.Text,'RoomCat',Cookie,RoomID,ListBox1)
     TgetRoomList2.Create(Form8.ServComboBox.Text,'RoomCat',Cookie,RoomID);
 End
  else
  Begin
   If Trim(ListBox1.Items.Text)='' Then
      TgetRoomList2.Create(Form8.ServComboBox.Text,'RoomCat',Cookie,RoomID);
   Form1.SendText(Form1.GetRoomList);
  End;
end;

end.