JustPaste.it

//---------------------------------------------------------------------------

#ifndef Unit4H
#define Unit4H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <System.Win.ScktComp.hpp>
#include <Vcl.ComCtrls.hpp>
#include <IdBaseComponent.hpp>
#include <IdComponent.hpp>
#include <IdCustomTCPServer.hpp>
#include <IdTCPClient.hpp>
#include <IdTCPConnection.hpp>
#include <IdTCPServer.hpp>
#include <IdContext.hpp>
#include <IdCmdTCPClient.hpp>
#include <IdIRC.hpp>
#include <Vcl.ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TForm4 : public TForm
{
__published: // IDE-managed Components
TButton *Button1;
TButton *Button2;
TStatusBar *StatusBar1;
TButton *Button4;
TEdit *Edit2;
TListBox *ListBox1;
TButton *Button3;
TIdIRC *IdIRC1;
TTimer *Timer1;
TListBox *Usuarios;
void __fastcall Button1Click(TObject *Sender);
void __fastcall Button3Click(TObject *Sender);
void __fastcall Button2Click(TObject *Sender);
void __fastcall IdTCPClient1Connected(TObject *Sender);
void __fastcall Button4Click(TObject *Sender);
void __fastcall IdIRC1Join(TIdContext *ASender, const UnicodeString ANickname, const UnicodeString AHost,
const UnicodeString AChannel);
void __fastcall Timer1Timer(TObject *Sender);
void __fastcall IdIRC1Notice(TIdContext *ASender, const UnicodeString ANickname,
const UnicodeString AHost, const UnicodeString ATarget,
const UnicodeString ANotice);
void __fastcall IdIRC1NicknamesListReceived(TIdContext *ASender, const UnicodeString AChannel,
TStrings *ANicknameList);
void __fastcall IdIRC1PrivateMessage(TIdContext *ASender, const UnicodeString ANickname,
const UnicodeString AHost, const UnicodeString ATarget,
const UnicodeString AMessage);
void __fastcall IdIRC1Kick(TIdContext *ASender, const UnicodeString ANickname, const UnicodeString AHost,
const UnicodeString AChannel, const UnicodeString ATarget,
const UnicodeString AReason);
void __fastcall IdIRC1NicknameChange(TIdContext *ASender, const UnicodeString AOldNickname,
const UnicodeString AHost, const UnicodeString ANewNickname);
void __fastcall Edit2KeyDown(TObject *Sender, WORD &Key, TShiftState Shift);

 

 

 

 

 

private: // User declarations
public: // User declarations
bool IsServer; // act as server
AnsiString CanalActual;
AnsiString Server; // IP to connect to server
TGraphic *g;
TGraphic *g2;
int Form3closed;
AnsiString appPath;
HSTREAM stream;
bool reproduciendo;
ULONG volumen;
void __fastcall TForm4::StopStream(void);
void __fastcall TForm4::ActualizarControles(void);
__fastcall TForm4(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm4 *Form4;
//---------------------------------------------------------------------------
#endif