First commit 18/09/2000
This commit is contained in:
commit
d7520eb74b
687
AllBox.cpp
Normal file
687
AllBox.cpp
Normal file
@ -0,0 +1,687 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <vcl.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include <stdio.h>
|
||||||
|
#include <shellapi.h>
|
||||||
|
|
||||||
|
#include "AllBox.h"
|
||||||
|
#include "MiniChat_userlist.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
#pragma link "actimg"
|
||||||
|
#pragma link "CoolForm"
|
||||||
|
#pragma link "DialUp"
|
||||||
|
#pragma resource "*.dfm"
|
||||||
|
|
||||||
|
|
||||||
|
/*
|
||||||
|
Status
|
||||||
|
0 escucha
|
||||||
|
1 new-msg
|
||||||
|
2 enviando-msg
|
||||||
|
*/
|
||||||
|
|
||||||
|
TBoxes *Boxes;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
__fastcall TBoxes::TBoxes(TComponent* Owner)
|
||||||
|
: TForm(Owner)
|
||||||
|
{
|
||||||
|
InMessage = new TStringList;
|
||||||
|
|
||||||
|
BoxActive = 0;
|
||||||
|
Status = 0;
|
||||||
|
TrayMessage(NIM_ADD);
|
||||||
|
TrayMessage(NIM_MODIFY);
|
||||||
|
|
||||||
|
// Cargamos la lista de usuarios...
|
||||||
|
LoadUserList();
|
||||||
|
MiniChatList->UserList->Items = para->Items;
|
||||||
|
for ( int i=0; i<20; i++ )
|
||||||
|
OutChats[i] = new TNMMsg(this);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBoxes::LoadUserList( void )
|
||||||
|
{
|
||||||
|
FILE *users;
|
||||||
|
char buffer[200];
|
||||||
|
AnsiString Name;
|
||||||
|
NumUsers = 0;
|
||||||
|
|
||||||
|
if ( (users = fopen( "users.cfg", "r" ) ) != NULL )
|
||||||
|
{
|
||||||
|
while ( !feof( users ) && NumUsers < 45 )
|
||||||
|
{
|
||||||
|
fgets( buffer, 200, users );
|
||||||
|
if ( StrLen( buffer ) >= 10 && buffer[0]!='#' )
|
||||||
|
{
|
||||||
|
Name = AnsiString( scanUntil( buffer, 32 ) + 1 );
|
||||||
|
TranslateIP[NumUsers] = AnsiString( buffer );
|
||||||
|
Name = Name.SetLength(Name.Length()-1);
|
||||||
|
para -> Items -> Add( Name );
|
||||||
|
NumUsers ++;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
fclose( users );
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
char * __fastcall TBoxes::scanUntil( char *text, char Terminador )
|
||||||
|
{
|
||||||
|
char *buff;
|
||||||
|
|
||||||
|
buff = text;
|
||||||
|
|
||||||
|
while ( *buff != '\0' && *buff != Terminador )
|
||||||
|
buff++;
|
||||||
|
|
||||||
|
*buff = '\0';
|
||||||
|
|
||||||
|
return buff;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBoxes::DrawItem(TMessage& Msg)
|
||||||
|
{
|
||||||
|
IconDrawItem((LPDRAWITEMSTRUCT)Msg.LParam);
|
||||||
|
TForm::Dispatch(&Msg);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBoxes::MyNotify(TMessage& Msg)
|
||||||
|
{
|
||||||
|
POINT MousePos;
|
||||||
|
|
||||||
|
switch(Msg.LParam)
|
||||||
|
{
|
||||||
|
case WM_RBUTTONUP:
|
||||||
|
if ( GetCursorPos(&MousePos) )
|
||||||
|
{
|
||||||
|
PopupMenu1->PopupComponent = Boxes;
|
||||||
|
SetForegroundWindow(Handle);
|
||||||
|
PopupMenu1->Popup(MousePos.x, MousePos.y);
|
||||||
|
PopupMenu1->PopupComponent = 0;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
Show();
|
||||||
|
break;
|
||||||
|
case WM_LBUTTONDBLCLK:
|
||||||
|
Properties1Click(0);
|
||||||
|
break;
|
||||||
|
/*
|
||||||
|
case WM_LBUTTONUP:
|
||||||
|
Properties1Click(0);
|
||||||
|
break;
|
||||||
|
*/
|
||||||
|
default:
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
TForm::Dispatch(&Msg);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBoxes::ActiveImage4Click(TObject *Sender)
|
||||||
|
{
|
||||||
|
Visible = false;
|
||||||
|
|
||||||
|
if ( MiniChatList -> Visible )
|
||||||
|
MiniChatList -> Visible = false;
|
||||||
|
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBoxes::FormDestroy(TObject *Sender)
|
||||||
|
{
|
||||||
|
for ( int i=0; i<20; i++ )
|
||||||
|
delete OutChats[i];
|
||||||
|
|
||||||
|
delete InMessage;
|
||||||
|
TrayMessage(NIM_DELETE);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
bool __fastcall TBoxes::TrayMessage(DWORD dwMessage)
|
||||||
|
{
|
||||||
|
NOTIFYICONDATA tnd;
|
||||||
|
PSTR pszTip;
|
||||||
|
|
||||||
|
pszTip = TipText();
|
||||||
|
|
||||||
|
tnd.cbSize = sizeof(NOTIFYICONDATA);
|
||||||
|
tnd.hWnd = Handle;
|
||||||
|
tnd.uID = IDC_MYICON;
|
||||||
|
tnd.uFlags = NIF_MESSAGE | NIF_ICON | NIF_TIP;
|
||||||
|
tnd.uCallbackMessage = MYWM_NOTIFY;
|
||||||
|
|
||||||
|
if (dwMessage == NIM_MODIFY)
|
||||||
|
{
|
||||||
|
tnd.hIcon = IconHandle();
|
||||||
|
if (pszTip)
|
||||||
|
lstrcpyn(tnd.szTip, pszTip, sizeof(tnd.szTip));
|
||||||
|
else
|
||||||
|
tnd.szTip[0] = '\0';
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
tnd.hIcon = NULL;
|
||||||
|
tnd.szTip[0] = '\0';
|
||||||
|
}
|
||||||
|
|
||||||
|
return (Shell_NotifyIcon(dwMessage, &tnd));
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
HANDLE __fastcall TBoxes::IconHandle(void)
|
||||||
|
{
|
||||||
|
switch ( Status )
|
||||||
|
{
|
||||||
|
case 1:
|
||||||
|
return imagenOFF -> Picture->Icon->Handle;
|
||||||
|
}
|
||||||
|
return imagenOn -> Picture->Icon->Handle;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
PSTR __fastcall TBoxes::TipText(void)
|
||||||
|
{
|
||||||
|
switch( Status )
|
||||||
|
{
|
||||||
|
case 0:
|
||||||
|
return ("Escuchando nuevos mensajes");
|
||||||
|
case 1:
|
||||||
|
return ("Tiene mensajes nuevos");
|
||||||
|
case 2:
|
||||||
|
return ("Enviando Mensaje");
|
||||||
|
}
|
||||||
|
return ("Código de STATUS DESCONOCIDO");
|
||||||
|
}
|
||||||
|
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
LRESULT IconDrawItem(LPDRAWITEMSTRUCT lpdi)
|
||||||
|
{
|
||||||
|
HICON hIcon;
|
||||||
|
|
||||||
|
hIcon = (HICON)LoadImage(g_hinst, MAKEINTRESOURCE(lpdi->CtlID), IMAGE_ICON,
|
||||||
|
16, 16, 0);
|
||||||
|
if (!hIcon)
|
||||||
|
return(FALSE);
|
||||||
|
|
||||||
|
DrawIconEx(lpdi->hDC, lpdi->rcItem.left, lpdi->rcItem.top, hIcon,
|
||||||
|
16, 16, 0, NULL, DI_NORMAL);
|
||||||
|
|
||||||
|
return(TRUE);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBoxes::Properties1Click(TObject *Sender)
|
||||||
|
{
|
||||||
|
Visible = true;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBoxes::Acercade1Click(TObject *Sender)
|
||||||
|
{
|
||||||
|
ShowMessage( "JD soft.\nBipBip es un programa desarrollado por:\nJosé David Guillén\ny distribuido por Informática D.J. [ www.infdj.com ]");
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBoxes::Shutdown1Click(TObject *Sender)
|
||||||
|
{
|
||||||
|
Close();
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBoxes::FormCloseQuery(TObject *Sender, bool &CanClose)
|
||||||
|
{
|
||||||
|
/*
|
||||||
|
if ( MessageDlg( "Si sale ahora del programa, no podrá recibir los mensajes en tiempo real.\n¿Salir de todas formas?", mtWarning, TMsgDlgButtons() << mbNo << mbYes, 0 ) == mrNo )
|
||||||
|
CanClose = false;
|
||||||
|
else
|
||||||
|
*/
|
||||||
|
MiniChatList->Close();
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
//// TrayMessage(NIM_MODIFY);
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
void __fastcall TBoxes::ActiveImage2Click(TObject *Sender)
|
||||||
|
{
|
||||||
|
// Vemos que mensajes tenemos en nuestra IN-BOX
|
||||||
|
LeeMensajes( "inbox\\" );
|
||||||
|
|
||||||
|
BoxActive = 1;
|
||||||
|
|
||||||
|
// Listado de Mensajes
|
||||||
|
AllBox -> Visible = true;
|
||||||
|
|
||||||
|
// Descripción del mensaje
|
||||||
|
Label1 -> Caption = "Para:"; para->Visible = false;
|
||||||
|
Label2 -> Caption = "Asunto:"; asunto->Visible = false;
|
||||||
|
Enviar->Caption = "&Enviar"; Enviar->Visible = false;
|
||||||
|
Mensaje->ReadOnly = false; Mensaje->Lines->Clear();
|
||||||
|
Mensaje->Visible = false;
|
||||||
|
|
||||||
|
// MiniChat
|
||||||
|
LineChat->Visible = false;
|
||||||
|
MiniChat->Visible = false;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBoxes::LeeMensajes(char *carpeta)
|
||||||
|
{
|
||||||
|
// Lee, examina y añade al ALLbox,,,
|
||||||
|
TSearchRec sr;
|
||||||
|
int iAttributes = 0;
|
||||||
|
AllBox->RowCount = 1;
|
||||||
|
iAttributes |= faReadOnly | faHidden | faSysFile | faArchive | faAnyFile;
|
||||||
|
iAttributes = 0xFF;
|
||||||
|
|
||||||
|
AllBox->Cells[0][AllBox->RowCount-1] = ""; AllBox->Cells[1][AllBox->RowCount-1] = ""; AllBox->Cells[2][AllBox->RowCount-1] = ""; AllBox->Cells[3][AllBox->RowCount-1] = "";
|
||||||
|
if (FindFirst( AnsiString( AnsiString(carpeta)+"*.txt" ).c_str(), iAttributes, sr) == 0)
|
||||||
|
{
|
||||||
|
AllBox->Enabled = true;
|
||||||
|
// if (sr.Attr == iAttributes)
|
||||||
|
{
|
||||||
|
AllBox->Cells[3][AllBox->RowCount-1] = sr.Name;
|
||||||
|
ExtractInfo( (sr.Name).c_str(), carpeta );
|
||||||
|
}
|
||||||
|
while (FindNext(sr) == 0)
|
||||||
|
{
|
||||||
|
// if (sr.Attr == iAttributes)
|
||||||
|
{
|
||||||
|
AllBox->RowCount += 1;
|
||||||
|
AllBox->Cells[3][AllBox->RowCount-1] = sr.Name;
|
||||||
|
ExtractInfo( (sr.Name).c_str(), carpeta );
|
||||||
|
}
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
AllBox->Enabled = false;
|
||||||
|
}
|
||||||
|
FindClose(sr);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBoxes::ExtractInfo(char *filename, AnsiString Box)
|
||||||
|
{
|
||||||
|
FILE *msg;
|
||||||
|
char buffer[200];
|
||||||
|
AnsiString buf;
|
||||||
|
|
||||||
|
AnsiString filenameBOX = Box + AnsiString(filename);
|
||||||
|
|
||||||
|
AllBox->Cells[0][AllBox->RowCount-1] = AnsiString( filename ).SubString( 14, 5 );
|
||||||
|
|
||||||
|
if ( ( msg = fopen( filenameBOX.c_str(), "r" ) ) != NULL )
|
||||||
|
{
|
||||||
|
fgets( buffer, 199, msg );
|
||||||
|
buf = buffer;
|
||||||
|
|
||||||
|
AllBox->Cells[1][AllBox->RowCount-1] = TranslateName( buf.SetLength( buf.Length() -1 ) );
|
||||||
|
|
||||||
|
fgets( buffer, 199, msg );
|
||||||
|
buf = buffer;
|
||||||
|
AllBox->Cells[2][AllBox->RowCount-1] = buf.SetLength( buf.Length() - 1 );
|
||||||
|
fclose( msg );
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
AnsiString __fastcall TBoxes::TranslateName( AnsiString name )
|
||||||
|
{
|
||||||
|
for ( int I=0; I < NumUsers; I++ )
|
||||||
|
{
|
||||||
|
if ( TranslateIP[ I ] == name )
|
||||||
|
return para->Items->Strings[I];
|
||||||
|
}
|
||||||
|
return name;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBoxes::ActiveImage1Click(TObject *Sender)
|
||||||
|
{
|
||||||
|
// Listado de Mensajes
|
||||||
|
AllBox -> Visible = false;
|
||||||
|
|
||||||
|
// Descripción del mensaje
|
||||||
|
Label1 -> Caption = "Para:"; para->Visible = true;
|
||||||
|
Label2 -> Caption = "Asunto:"; asunto->Visible = true;
|
||||||
|
Enviar -> Caption = "&Enviar"; Enviar->Visible = true;
|
||||||
|
Mensaje->ReadOnly = false; Mensaje->Lines->Clear();
|
||||||
|
Mensaje->Visible = true;
|
||||||
|
FechaMsg->Visible = false;
|
||||||
|
|
||||||
|
// MiniChat
|
||||||
|
LineChat->Visible = false;
|
||||||
|
MiniChat->Visible = false;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TBoxes::EnviarClick(TObject *Sender)
|
||||||
|
{
|
||||||
|
if ( Enviar->Caption == "&Borrar!!" )
|
||||||
|
{
|
||||||
|
DeleteFile( (BoxActive == 1 ? "inbox\\" : "outbox\\" ) + AllBox->Rows[AllBox->Row]->Strings[3] );
|
||||||
|
if ( BoxActive == 1 )
|
||||||
|
ActiveImage2Click(0);
|
||||||
|
else
|
||||||
|
ActiveImage3Click(0);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
char FileMessage[80];
|
||||||
|
|
||||||
|
if ( para->ItemIndex != -1 )
|
||||||
|
{
|
||||||
|
unsigned short year, month, day;
|
||||||
|
unsigned short h, m, s, ss;
|
||||||
|
TDateTime::CurrentDate().DecodeDate( &year, &month, &day );
|
||||||
|
TDateTime::CurrentTime().DecodeTime( &h, &m, &s, &ss );
|
||||||
|
|
||||||
|
// FileMessage = Format( "outbox\\%02d%02d%02d-%02d%02d%02d.txt", OPENARRAY(TVarRec, (year, month, day, h, m, ss)) );
|
||||||
|
sprintf( FileMessage, "outbox\\%02d-%02d-%02d @ %02d.%02d'%02d.txt", year, month, day, h, m, ss );
|
||||||
|
|
||||||
|
Mensaje -> Lines -> Insert( 0, asunto->Text );
|
||||||
|
Mensaje -> Lines -> Insert( 0, TranslateIP[para->ItemIndex] );
|
||||||
|
Mensaje -> Lines -> SaveToFile( FileMessage );
|
||||||
|
Mensaje -> Lines -> Clear();
|
||||||
|
asunto->Text = "";
|
||||||
|
para->Text = "";
|
||||||
|
|
||||||
|
EnviaMensaje( AnsiString(FileMessage) );
|
||||||
|
if ( asunto->Text.Pos( "$-" ) == 1 )
|
||||||
|
DeleteFile( AnsiString(FileMessage) );
|
||||||
|
} else {
|
||||||
|
ShowMessage( "Debe indicar el destinatario..." );
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TBoxes::ActiveImage3Click(TObject *Sender)
|
||||||
|
{
|
||||||
|
LeeMensajes( "outbox\\" );
|
||||||
|
|
||||||
|
BoxActive = 2;
|
||||||
|
|
||||||
|
// Listado de Mensajes
|
||||||
|
AllBox -> Visible = true;
|
||||||
|
|
||||||
|
// Descripción del mensaje
|
||||||
|
Label1 -> Caption = "Para:"; para->Visible = false;
|
||||||
|
Label2 -> Caption = "Asunto:"; asunto->Visible = false;
|
||||||
|
Enviar->Caption = "&Enviar"; Enviar->Visible = false;
|
||||||
|
Mensaje->ReadOnly = false; Mensaje->Lines->Clear();
|
||||||
|
Mensaje->Visible = false;
|
||||||
|
|
||||||
|
// MiniChat
|
||||||
|
LineChat->Visible = false;
|
||||||
|
MiniChat->Visible = false;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBoxes::SendNowTimer(TObject *Sender)
|
||||||
|
{
|
||||||
|
int OldStatus = Status;
|
||||||
|
// Damos salida a todos los mensajes pendientes...
|
||||||
|
TSearchRec sr;
|
||||||
|
int iAttributes = 0xFF;
|
||||||
|
|
||||||
|
if (FindFirst( AnsiString( "outbox\\*.txt" ).c_str(), iAttributes, sr) == 0)
|
||||||
|
{
|
||||||
|
EnviaMensaje( "outbox\\"+sr.Name );
|
||||||
|
while (FindNext(sr) == 0)
|
||||||
|
EnviaMensaje( "outbox\\"+sr.Name );
|
||||||
|
}
|
||||||
|
FindClose(sr);
|
||||||
|
///
|
||||||
|
Status = OldStatus; TrayMessage(NIM_MODIFY);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TBoxes::AllBoxDblClick(TObject *Sender)
|
||||||
|
{
|
||||||
|
// Mostramos el mensaje seleccionado...
|
||||||
|
Status = 0; TrayMessage(NIM_MODIFY);
|
||||||
|
|
||||||
|
// Listado de Mensajes
|
||||||
|
AllBox -> Visible = false;
|
||||||
|
|
||||||
|
// Descripción del mensaje
|
||||||
|
para->Visible = false;
|
||||||
|
asunto->Visible = false;
|
||||||
|
Enviar->Caption = "&Borrar!!"; Enviar->Visible = true;
|
||||||
|
Mensaje->ReadOnly = true;
|
||||||
|
Mensaje->Visible = true;
|
||||||
|
FechaMsg->Visible = true;
|
||||||
|
FechaMsg->Caption = AllBox->Rows[AllBox->Row]->Strings[3];
|
||||||
|
|
||||||
|
// MiniChat
|
||||||
|
LineChat->Visible = false;
|
||||||
|
MiniChat->Visible = false;
|
||||||
|
|
||||||
|
|
||||||
|
Mensaje->Lines->LoadFromFile( (BoxActive == 1 ? "inbox\\" : "outbox\\" ) + AllBox->Rows[AllBox->Row]->Strings[3] );
|
||||||
|
Mensaje->Lines->Delete( 0 );
|
||||||
|
Mensaje->Lines->Delete( 0 );
|
||||||
|
Label1 -> Caption = "De:\t" + AllBox->Rows[AllBox->Row]->Strings[1];
|
||||||
|
Label2 -> Caption = "Asunto: " + AllBox->Rows[AllBox->Row]->Strings[2];
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TBoxes::ActiveImage5Click(TObject *Sender)
|
||||||
|
{
|
||||||
|
// Linea Anterior
|
||||||
|
if ( BoxActive )
|
||||||
|
{
|
||||||
|
if ( AllBox->Row > 0 )
|
||||||
|
{
|
||||||
|
AllBox->Row--;
|
||||||
|
if ( AllBox->Visible == false )
|
||||||
|
AllBoxDblClick( 0 );
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TBoxes::ActiveImage6Click(TObject *Sender)
|
||||||
|
{
|
||||||
|
// Linea Siguiente
|
||||||
|
if ( BoxActive )
|
||||||
|
{
|
||||||
|
if ( AllBox->Row < (AllBox->RowCount-1) )
|
||||||
|
{
|
||||||
|
AllBox->Row++;
|
||||||
|
if ( AllBox->Visible == false )
|
||||||
|
AllBoxDblClick( 0 );
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBoxes::EnviaMensaje( AnsiString FileName )
|
||||||
|
{
|
||||||
|
Status = 2; TrayMessage(NIM_MODIFY);
|
||||||
|
|
||||||
|
|
||||||
|
OutBox->TimeOut = 20000;
|
||||||
|
OutBox->ReportLevel = Status_Basic;
|
||||||
|
OutBox->FromName = OutBox->LocalIP;
|
||||||
|
OutBox->Port = 6711;
|
||||||
|
|
||||||
|
TStringList *OutMessage;
|
||||||
|
|
||||||
|
try {
|
||||||
|
OutMessage = new TStringList;
|
||||||
|
OutMessage->LoadFromFile( FileName );
|
||||||
|
OutBox->Host = OutMessage->Strings[0];
|
||||||
|
|
||||||
|
// Archivo
|
||||||
|
// OutBox->PostIt( FileName.SubString( 8, FileName.Length() - 7 ) );
|
||||||
|
OutBox->FromName = "BeginMessage";
|
||||||
|
OutBox->PostIt( OutBox->LocalIP );
|
||||||
|
OutBox->FromName = OutBox->LocalIP;
|
||||||
|
|
||||||
|
|
||||||
|
for ( int I=1; I < OutMessage->Count; I++ )
|
||||||
|
OutBox->PostIt( OutMessage->Strings[I] );
|
||||||
|
|
||||||
|
OutBox->FromName = "EndMessage";
|
||||||
|
if ( OutBox->PostIt( FileName.SubString( 8, FileName.Length() - 7 ) ) .AnsiPos( "OK" ) != 0 )
|
||||||
|
{
|
||||||
|
sndPlaySound("outbox\\msgout.wav", SND_ASYNC | SND_FILENAME);
|
||||||
|
DeleteFile( FileName );
|
||||||
|
}
|
||||||
|
else
|
||||||
|
sndPlaySound("outbox\\msgfail.wav", SND_ASYNC | SND_FILENAME);
|
||||||
|
delete OutMessage;
|
||||||
|
}catch(...){
|
||||||
|
// nothing
|
||||||
|
sndPlaySound("outbox\\msgfail.wav", SND_ASYNC | SND_FILENAME);
|
||||||
|
// ShowMessage( "El mensaje NO pudo ser ENVIADO.\nPuede ser que el equipo no exista.\n(cada 5 minutos, se reintentará su envio)" );
|
||||||
|
}
|
||||||
|
Status = 0; TrayMessage(NIM_MODIFY);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBoxes::InBoxMSG(TComponent *Sender,
|
||||||
|
const AnsiString sFrom, const AnsiString sMsg)
|
||||||
|
{
|
||||||
|
if ( sFrom == "BeginMessage" && InMessage->Count > 0 )
|
||||||
|
{
|
||||||
|
InMessage->Insert( 0, sMsg );
|
||||||
|
InMessage->Add("-------------------------------\nColision en la red detectada ]cabecera desordenada o mezclada[\n-------------------------------");
|
||||||
|
}
|
||||||
|
|
||||||
|
if ( sFrom == "EndMessage" )
|
||||||
|
{
|
||||||
|
if ( InMessage->Strings[1].Pos( "$-" ) == 1 )
|
||||||
|
{
|
||||||
|
// Esto es un comando de control, asi que lo procesamos de forma especial
|
||||||
|
|
||||||
|
// Apagar el equipo
|
||||||
|
if ( InMessage->Strings[1].UpperCase() == "$-APAGAR" )
|
||||||
|
ExitWindowsEx(EWX_SHUTDOWN | EWX_FORCE | EWX_POWEROFF, 0);
|
||||||
|
// Cortar la conexion a internet
|
||||||
|
if ( InMessage->Strings[1].UpperCase() == "$-MODEM" )
|
||||||
|
DialUp1 -> GetConnections();
|
||||||
|
InMessage->Clear();
|
||||||
|
} else {
|
||||||
|
InMessage->SaveToFile( "inbox\\"+sMsg );
|
||||||
|
InMessage->Clear();
|
||||||
|
Status = 1; TrayMessage(NIM_MODIFY);
|
||||||
|
sndPlaySound("inbox\\newmsg.wav", SND_ASYNC | SND_FILENAME);
|
||||||
|
if ( Visible == false )
|
||||||
|
{
|
||||||
|
NewMessage->Enabled = true;
|
||||||
|
// Visible = true;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
} else
|
||||||
|
InMessage->Add(sMsg);
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
||||||
|
void __fastcall TBoxes::ActiveImage7Click(TObject *Sender)
|
||||||
|
{
|
||||||
|
LineChat->Visible = true;
|
||||||
|
|
||||||
|
// MiniChat
|
||||||
|
// Mostramos tb. la lista de usuarios a los que mandamos nuestras notas...
|
||||||
|
LineChat->Visible = true;
|
||||||
|
MiniChat->Visible = true;
|
||||||
|
|
||||||
|
if ( MiniChat -> Visible )
|
||||||
|
{
|
||||||
|
MiniChatList -> Visible = !MiniChatList->Visible;
|
||||||
|
}
|
||||||
|
// Listado de Mensajes
|
||||||
|
AllBox -> Visible = false;
|
||||||
|
|
||||||
|
// Descripción del mensaje
|
||||||
|
para->Visible = false;
|
||||||
|
asunto->Visible = false;
|
||||||
|
Enviar->Visible = false;
|
||||||
|
Mensaje->Visible = false;
|
||||||
|
|
||||||
|
MiniChatList->Left = Left + Width;
|
||||||
|
MiniChatList->Top = Top+50;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TBoxes::LineChatKeyPress(TObject *Sender, char &Key)
|
||||||
|
{
|
||||||
|
if ( Key == VK_RETURN && !LineChat->Text.IsEmpty() )
|
||||||
|
{
|
||||||
|
// ...lo subimos pa'rriba
|
||||||
|
MiniChat->Lines->Add( LineChat->Text );
|
||||||
|
// Enviamos el mensaje, a todos los usuarios marcados en el UserList
|
||||||
|
for ( msgI=0; msgI < MiniChatList->UserList->Items->Count; msgI++ )
|
||||||
|
{
|
||||||
|
if ( MiniChatList->UserList->Checked[msgI])
|
||||||
|
{
|
||||||
|
try{
|
||||||
|
int LineOut = msgI < 20 ? msgI : 0;
|
||||||
|
OutChats[LineOut]->ReportLevel = Status_None;
|
||||||
|
OutChats[LineOut]->Host = TranslateIP[ msgI ];
|
||||||
|
OutChats[LineOut]->FromName = OutBox->LocalIP;
|
||||||
|
OutChats[LineOut]->Port = 6712;
|
||||||
|
OutChats[LineOut]->TimeOut = 250;
|
||||||
|
OutChats[LineOut]->PostIt( LineChat->Text );
|
||||||
|
/*
|
||||||
|
OutBox->ReportLevel = Status_None;
|
||||||
|
OutBox->Host = TranslateIP[ msgI ];
|
||||||
|
OutBox->FromName = OutBox->LocalIP;
|
||||||
|
OutBox->Port = 6712;
|
||||||
|
OutBox->TimeOut = 250;
|
||||||
|
OutBox->PostIt( LineChat->Text );
|
||||||
|
*/
|
||||||
|
} catch(...) {
|
||||||
|
// nothing...
|
||||||
|
MiniChatList->UserList->Checked[msgI] = false;
|
||||||
|
MiniChat->Lines->Add( ">>>> "+MiniChatList->UserList->Items->Strings[msgI] + " Desconectado ");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
LineChat->Text="";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TBoxes::InChatMSG(TComponent *Sender,
|
||||||
|
const AnsiString sFrom, const AnsiString sMsg)
|
||||||
|
{
|
||||||
|
for ( int I=0; I < NumUsers; I++ )
|
||||||
|
{
|
||||||
|
if ( TranslateIP[ I ] == sFrom )
|
||||||
|
MiniChatList->UserList->Checked[ I ] = true;
|
||||||
|
}
|
||||||
|
|
||||||
|
MiniChat->Lines->Add( TranslateName(sFrom) + "> " + sMsg );
|
||||||
|
if ( MiniChat->Lines->Count == 200 ) MiniChat->Lines->Delete( 0 );
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TBoxes::NewMessageTimer(TObject *Sender)
|
||||||
|
{
|
||||||
|
NewMessage->Enabled = false;
|
||||||
|
Visible = true;
|
||||||
|
ActiveImage2Click( 0 );
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
void __fastcall TBoxes::AllBoxKeyPress(TObject *Sender, char &Key)
|
||||||
|
{
|
||||||
|
if ( Key == VK_RETURN )
|
||||||
|
AllBoxDblClick( 0 );
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
void __fastcall TBoxes::CoolForm1MouseUp(TObject *Sender,
|
||||||
|
TMouseButton Button, TShiftState Shift, int X, int Y)
|
||||||
|
{
|
||||||
|
if ( MiniChat -> Visible )
|
||||||
|
{
|
||||||
|
MiniChatList->Left = Left + Width;
|
||||||
|
MiniChatList->Top = Top+50;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
void __fastcall TBoxes::DialUp1ActiveConnection(TObject *Sender,
|
||||||
|
int Handle, TRasConnStatusA &Status, AnsiString StatusString,
|
||||||
|
AnsiString EntryName, AnsiString DeviceType, AnsiString DeviceName)
|
||||||
|
{
|
||||||
|
DialUp1 -> HangUpConn( Handle );
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
BIN
AllBox.dfm
Normal file
BIN
AllBox.dfm
Normal file
Binary file not shown.
138
AllBox.h
Normal file
138
AllBox.h
Normal file
@ -0,0 +1,138 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#ifndef AllBoxH
|
||||||
|
#define AllBoxH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <Classes.hpp>
|
||||||
|
#include <Controls.hpp>
|
||||||
|
#include <StdCtrls.hpp>
|
||||||
|
#include <Forms.hpp>
|
||||||
|
#include "actimg.h"
|
||||||
|
#include <ExtCtrls.hpp>
|
||||||
|
#include <Menus.hpp>
|
||||||
|
#include <Grids.hpp>
|
||||||
|
#include <NMMSG.hpp>
|
||||||
|
#include <Psock.hpp>
|
||||||
|
#include <NMSTRM.hpp>
|
||||||
|
#include <mmsystem.h>
|
||||||
|
#include <Graphics.hpp>
|
||||||
|
#include "CoolForm.hpp"
|
||||||
|
#include "DialUp.h"
|
||||||
|
|
||||||
|
#define MYWM_NOTIFY (WM_APP+100)
|
||||||
|
#define IDC_MYICON 1006
|
||||||
|
extern HINSTANCE g_hinst;
|
||||||
|
LRESULT IconDrawItem(LPDRAWITEMSTRUCT lpdi);
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
class TBoxes : public TForm
|
||||||
|
{
|
||||||
|
__published: // IDE-managed Components
|
||||||
|
TActiveImage *ActiveImage1;
|
||||||
|
TActiveImage *ActiveImage2;
|
||||||
|
TActiveImage *ActiveImage3;
|
||||||
|
TActiveImage *ActiveImage4;
|
||||||
|
TActiveImage *ActiveImage5;
|
||||||
|
TActiveImage *ActiveImage6;
|
||||||
|
TActiveImage *ActiveImage7;
|
||||||
|
TImage *imagenOn;
|
||||||
|
TImage *imagenOFF;
|
||||||
|
TPopupMenu *PopupMenu1;
|
||||||
|
TMenuItem *Properties1;
|
||||||
|
TMenuItem *Shutdown1;
|
||||||
|
TMenuItem *N2;
|
||||||
|
TMenuItem *Acercade1;
|
||||||
|
TStringGrid *AllBox;
|
||||||
|
TLabel *Label1;
|
||||||
|
TComboBox *para;
|
||||||
|
TButton *Enviar;
|
||||||
|
TMemo *Mensaje;
|
||||||
|
TLabel *Label2;
|
||||||
|
TEdit *asunto;
|
||||||
|
TTimer *SendNow;
|
||||||
|
TNMMsg *OutBox;
|
||||||
|
TNMMSGServ *InBox;
|
||||||
|
TCoolForm *CoolForm1;
|
||||||
|
TEdit *LineChat;
|
||||||
|
TMemo *MiniChat;
|
||||||
|
TNMMsg *OutChat;
|
||||||
|
TNMMSGServ *InChat;
|
||||||
|
TTimer *NewMessage;
|
||||||
|
TDialUp *DialUp1;
|
||||||
|
TLabel *FechaMsg;
|
||||||
|
void __fastcall ActiveImage4Click(TObject *Sender);
|
||||||
|
void __fastcall FormDestroy(TObject *Sender);
|
||||||
|
void __fastcall Properties1Click(TObject *Sender);
|
||||||
|
void __fastcall Acercade1Click(TObject *Sender);
|
||||||
|
void __fastcall Shutdown1Click(TObject *Sender);
|
||||||
|
void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
void __fastcall ActiveImage2Click(TObject *Sender);
|
||||||
|
void __fastcall ActiveImage1Click(TObject *Sender);
|
||||||
|
void __fastcall EnviarClick(TObject *Sender);
|
||||||
|
void __fastcall ActiveImage3Click(TObject *Sender);
|
||||||
|
void __fastcall SendNowTimer(TObject *Sender);
|
||||||
|
void __fastcall AllBoxDblClick(TObject *Sender);
|
||||||
|
void __fastcall ActiveImage5Click(TObject *Sender);
|
||||||
|
void __fastcall ActiveImage6Click(TObject *Sender);
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
void __fastcall InBoxMSG(TComponent *Sender, const AnsiString sFrom,
|
||||||
|
const AnsiString sMsg);
|
||||||
|
|
||||||
|
void __fastcall ActiveImage7Click(TObject *Sender);
|
||||||
|
void __fastcall LineChatKeyPress(TObject *Sender, char &Key);
|
||||||
|
void __fastcall InChatMSG(TComponent *Sender, const AnsiString sFrom,
|
||||||
|
const AnsiString sMsg);
|
||||||
|
void __fastcall NewMessageTimer(TObject *Sender);
|
||||||
|
|
||||||
|
void __fastcall AllBoxKeyPress(TObject *Sender, char &Key);
|
||||||
|
void __fastcall CoolForm1MouseUp(TObject *Sender, TMouseButton Button,
|
||||||
|
TShiftState Shift, int X, int Y);
|
||||||
|
void __fastcall DialUp1ActiveConnection(TObject *Sender,
|
||||||
|
int Handle, TRasConnStatusA &Status, AnsiString StatusString,
|
||||||
|
AnsiString EntryName, AnsiString DeviceType,
|
||||||
|
AnsiString DeviceName);
|
||||||
|
private: // User declarations
|
||||||
|
void __fastcall DrawItem(TMessage& Msg);
|
||||||
|
void __fastcall MyNotify(TMessage& Msg);
|
||||||
|
bool __fastcall TrayMessage(DWORD dwMessage);
|
||||||
|
HANDLE __fastcall IconHandle(void);
|
||||||
|
void __fastcall ToggleState(void);
|
||||||
|
PSTR __fastcall TipText(void);
|
||||||
|
int Status;
|
||||||
|
|
||||||
|
AnsiString TranslateIP[50];
|
||||||
|
|
||||||
|
char * __fastcall scanUntil( char *text, char Terminador );
|
||||||
|
void __fastcall LoadUserList( void );
|
||||||
|
int NumUsers;
|
||||||
|
|
||||||
|
TNMMsg *OutChats[20];
|
||||||
|
|
||||||
|
TStringList *InMessage;
|
||||||
|
|
||||||
|
public: // User declarations
|
||||||
|
__fastcall TBoxes(TComponent* Owner);
|
||||||
|
void __fastcall LeeMensajes(char *carpeta);
|
||||||
|
void __fastcall ExtractInfo(char *filename, AnsiString Box);
|
||||||
|
AnsiString __fastcall TranslateName( AnsiString name );
|
||||||
|
void __fastcall EnviaMensaje( AnsiString FileName );
|
||||||
|
|
||||||
|
int BoxActive;
|
||||||
|
int msgI;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
BEGIN_MESSAGE_MAP
|
||||||
|
MESSAGE_HANDLER(WM_DRAWITEM,TMessage,DrawItem)
|
||||||
|
MESSAGE_HANDLER(MYWM_NOTIFY,TMessage,MyNotify)
|
||||||
|
END_MESSAGE_MAP(TForm)
|
||||||
|
};
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
extern PACKAGE TBoxes *Boxes;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#endif
|
||||||
BIN
Armazon.psp
Normal file
BIN
Armazon.psp
Normal file
Binary file not shown.
BIN
BipBip!.zip
Normal file
BIN
BipBip!.zip
Normal file
Binary file not shown.
110
BipBip.bpr
Normal file
110
BipBip.bpr
Normal file
@ -0,0 +1,110 @@
|
|||||||
|
<?xml version='1.0' encoding='utf-8' ?>
|
||||||
|
<!-- C++Builder XML Project -->
|
||||||
|
<PROJECT>
|
||||||
|
<MACROS>
|
||||||
|
<VERSION value="BCB.05.03"/>
|
||||||
|
<PROJECT value="BipBip.exe"/>
|
||||||
|
<OBJFILES value="BipBip.obj AllBox.obj MiniChat_userlist.obj"/>
|
||||||
|
<RESFILES value="BipBip.res"/>
|
||||||
|
<IDLFILES value=""/>
|
||||||
|
<IDLGENFILES value=""/>
|
||||||
|
<DEFFILE value=""/>
|
||||||
|
<RESDEPEN value="$(RESFILES) AllBox.dfm MiniChat_userlist.dfm"/>
|
||||||
|
<LIBFILES value=""/>
|
||||||
|
<LIBRARIES value="RAS_Tools.lib JDsoft.lib CoolPack.lib vclx50.lib nmfast50.lib vclbde50.lib
|
||||||
|
vcldb50.lib vcl50.lib"/>
|
||||||
|
<SPARELIBS value="vcl50.lib vcldb50.lib vclbde50.lib nmfast50.lib vclx50.lib CoolPack.lib
|
||||||
|
JDsoft.lib RAS_Tools.lib"/>
|
||||||
|
<PACKAGES value="vclx50.bpi vcl50.bpi vcldb50.bpi vclbde50.bpi vclsmp50.bpi nmfast50.bpi
|
||||||
|
inetdb50.bpi inet50.bpi RAS_Tools.bpi"/>
|
||||||
|
<PATHCPP value=".;"/>
|
||||||
|
<PATHPAS value=".;"/>
|
||||||
|
<PATHRC value=".;"/>
|
||||||
|
<PATHASM value=".;"/>
|
||||||
|
<DEBUGLIBPATH value="$(BCB)\lib\debug"/>
|
||||||
|
<RELEASELIBPATH value="$(BCB)\lib\release"/>
|
||||||
|
<LINKER value="ilink32"/>
|
||||||
|
<USERDEFINES value=""/>
|
||||||
|
<SYSDEFINES value="NO_STRICT"/>
|
||||||
|
<MAINSOURCE value="BipBip.cpp"/>
|
||||||
|
<INCLUDEPATH value="..\vcls\src\dialup;$(BCB)\include;$(BCB)\include\vcl;..\VCLs\include"/>
|
||||||
|
<LIBPATH value="..\vcls\src\dialup;$(BCB)\lib\obj;$(BCB)\lib;..\VCLs\lib"/>
|
||||||
|
<WARNINGS value="-w-par -w-8027 -w-8026"/>
|
||||||
|
<WARNOPTSTR value=""/>
|
||||||
|
</MACROS>
|
||||||
|
<OPTIONS>
|
||||||
|
<IDLCFLAGS value="-I..\vcls\src\dialup -I$(BCB)\include -I$(BCB)\include\vcl
|
||||||
|
-I..\VCLs\include -src_suffix cpp -boa"/>
|
||||||
|
<CFLAG1 value="-Od -H=c:\PROGRAM\CBUILDER\CBUILD~1\lib\vcl35.csm -Hc -Vx -Ve -Tkh30000
|
||||||
|
-X- -r- -a8 -b- -k -y -v -vi- -c -tW -tWM"/>
|
||||||
|
<CFLAG2 value=""/>
|
||||||
|
<CFLAG3 value=""/>
|
||||||
|
<PFLAGS value="-$YD -$W -$O- -v -M -JPHNE"/>
|
||||||
|
<RFLAGS value=""/>
|
||||||
|
<AFLAGS value="/mx /w2 /zd"/>
|
||||||
|
<LFLAGS value="-D"" -aa -Tpe -x -Gn -v"/>
|
||||||
|
<IFLAGS value=""/>
|
||||||
|
</OPTIONS>
|
||||||
|
<LINKER>
|
||||||
|
<ALLOBJ value="c0w32.obj sysinit.obj $(OBJFILES)"/>
|
||||||
|
<ALLRES value="$(RESFILES)"/>
|
||||||
|
<ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mt.lib"/>
|
||||||
|
</LINKER>
|
||||||
|
<IDEOPTIONS>
|
||||||
|
[Version Info]
|
||||||
|
IncludeVerInfo=1
|
||||||
|
AutoIncBuild=0
|
||||||
|
MajorVer=1
|
||||||
|
MinorVer=0
|
||||||
|
Release=0
|
||||||
|
Build=0
|
||||||
|
Debug=1
|
||||||
|
PreRelease=0
|
||||||
|
Special=0
|
||||||
|
Private=0
|
||||||
|
DLL=0
|
||||||
|
Locale=3082
|
||||||
|
CodePage=1252
|
||||||
|
|
||||||
|
[Version Info Keys]
|
||||||
|
CompanyName=www.infdj.com
|
||||||
|
FileDescription=IntraBeeper para LAN's
|
||||||
|
FileVersion=1.0.0.0
|
||||||
|
InternalName=BipBip
|
||||||
|
LegalCopyright=JD soft.
|
||||||
|
LegalTrademarks=
|
||||||
|
OriginalFilename=BipBip
|
||||||
|
ProductName=
|
||||||
|
ProductVersion=1.0.0.0
|
||||||
|
Comments=José David Guillén
|
||||||
|
e-mail=jd@infdj.com
|
||||||
|
|
||||||
|
[Excluded Packages]
|
||||||
|
$(BCB)\Projects\Bpl\Dialup.bpl=RAS Tools
|
||||||
|
|
||||||
|
[Debugging]
|
||||||
|
DebugSourceDirs=$(BCB)\source\vcl
|
||||||
|
|
||||||
|
[Parameters]
|
||||||
|
RunParams=
|
||||||
|
HostApplication=
|
||||||
|
RemoteHost=
|
||||||
|
RemotePath=
|
||||||
|
RemoteDebug=0
|
||||||
|
|
||||||
|
[Compiler]
|
||||||
|
ShowInfoMsgs=0
|
||||||
|
LinkDebugVcl=0
|
||||||
|
LinkCGLIB=0
|
||||||
|
|
||||||
|
[CORBA]
|
||||||
|
AddServerUnit=1
|
||||||
|
AddClientUnit=1
|
||||||
|
PrecompiledHeaders=1
|
||||||
|
|
||||||
|
[Language]
|
||||||
|
ActiveLang=
|
||||||
|
ProjectLang=
|
||||||
|
RootDir=
|
||||||
|
</IDEOPTIONS>
|
||||||
|
</PROJECT>
|
||||||
28
BipBip.cpp
Normal file
28
BipBip.cpp
Normal file
@ -0,0 +1,28 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <vcl.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
USERES("BipBip.res");
|
||||||
|
USEFORM("AllBox.cpp", Boxes);
|
||||||
|
USEFORM("MiniChat_userlist.cpp", MiniChatList);
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
HINSTANCE g_hinst;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
WINAPI WinMain(HINSTANCE, HINSTANCE hInstance, LPSTR, int)
|
||||||
|
{
|
||||||
|
try
|
||||||
|
{
|
||||||
|
Application->Initialize();
|
||||||
|
g_hinst = hInstance;
|
||||||
|
Application->Title = "BipBip!!!";
|
||||||
|
Application->CreateForm(__classid(TMiniChatList), &MiniChatList);
|
||||||
|
Application->CreateForm(__classid(TBoxes), &Boxes);
|
||||||
|
Application->ShowMainForm = false;
|
||||||
|
Application->Run();
|
||||||
|
}
|
||||||
|
catch (Exception &exception)
|
||||||
|
{
|
||||||
|
Application->ShowException(&exception);
|
||||||
|
}
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
BIN
BipBip.exe
Normal file
BIN
BipBip.exe
Normal file
Binary file not shown.
BIN
BipBip.res
Normal file
BIN
BipBip.res
Normal file
Binary file not shown.
16
MiniChat_userlist.cpp
Normal file
16
MiniChat_userlist.cpp
Normal file
@ -0,0 +1,16 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <vcl.h>
|
||||||
|
#pragma hdrstop
|
||||||
|
|
||||||
|
#include "MiniChat_userlist.h"
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#pragma package(smart_init)
|
||||||
|
#pragma resource "*.dfm"
|
||||||
|
TMiniChatList *MiniChatList;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
__fastcall TMiniChatList::TMiniChatList(TComponent* Owner)
|
||||||
|
: TForm(Owner)
|
||||||
|
{
|
||||||
|
}
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
|
||||||
BIN
MiniChat_userlist.dfm
Normal file
BIN
MiniChat_userlist.dfm
Normal file
Binary file not shown.
23
MiniChat_userlist.h
Normal file
23
MiniChat_userlist.h
Normal file
@ -0,0 +1,23 @@
|
|||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#ifndef MiniChat_userlistH
|
||||||
|
#define MiniChat_userlistH
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#include <Classes.hpp>
|
||||||
|
#include <Controls.hpp>
|
||||||
|
#include <StdCtrls.hpp>
|
||||||
|
#include <Forms.hpp>
|
||||||
|
#include <checklst.hpp>
|
||||||
|
#include <CheckLst.hpp>
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
class TMiniChatList : public TForm
|
||||||
|
{
|
||||||
|
__published: // IDE-managed Components
|
||||||
|
TCheckListBox *UserList;
|
||||||
|
private: // User declarations
|
||||||
|
public: // User declarations
|
||||||
|
__fastcall TMiniChatList(TComponent* Owner);
|
||||||
|
};
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
extern PACKAGE TMiniChatList *MiniChatList;
|
||||||
|
//---------------------------------------------------------------------------
|
||||||
|
#endif
|
||||||
BIN
MiniChat_userlist.zip
Normal file
BIN
MiniChat_userlist.zip
Normal file
Binary file not shown.
9
README.md
Normal file
9
README.md
Normal file
@ -0,0 +1,9 @@
|
|||||||
|
#BipBip
|
||||||
|
|
||||||
|
|
||||||
|
*18/09/2000*
|
||||||
|
|
||||||
|
ToDo: wwtcf?
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
BIN
botones.rar
Normal file
BIN
botones.rar
Normal file
Binary file not shown.
BIN
botones/Fondo.bmp
Normal file
BIN
botones/Fondo.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 198 KiB |
BIN
botones/cfg-0.bmp
Normal file
BIN
botones/cfg-0.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 2.3 KiB |
BIN
botones/cfg-1.bmp
Normal file
BIN
botones/cfg-1.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 2.3 KiB |
BIN
botones/down-0.bmp
Normal file
BIN
botones/down-0.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 2.3 KiB |
BIN
botones/down-1.bmp
Normal file
BIN
botones/down-1.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 2.3 KiB |
BIN
botones/in-box-0.bmp
Normal file
BIN
botones/in-box-0.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 4.8 KiB |
BIN
botones/in-box-1.bmp
Normal file
BIN
botones/in-box-1.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 4.8 KiB |
BIN
botones/minimize-0.bmp
Normal file
BIN
botones/minimize-0.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 2.3 KiB |
BIN
botones/minimize-1.bmp
Normal file
BIN
botones/minimize-1.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 2.3 KiB |
BIN
botones/new-msg-0.bmp
Normal file
BIN
botones/new-msg-0.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 4.8 KiB |
BIN
botones/new-msg-1.bmp
Normal file
BIN
botones/new-msg-1.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 4.8 KiB |
BIN
botones/out-box-0.bmp
Normal file
BIN
botones/out-box-0.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 4.8 KiB |
BIN
botones/out-box-1.bmp
Normal file
BIN
botones/out-box-1.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 4.8 KiB |
BIN
botones/up-0.bmp
Normal file
BIN
botones/up-0.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 2.3 KiB |
BIN
botones/up-1.bmp
Normal file
BIN
botones/up-1.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 2.3 KiB |
2
inbox/2000-11-26 @ 11.15'10.txt
Normal file
2
inbox/2000-11-26 @ 11.15'10.txt
Normal file
@ -0,0 +1,2 @@
|
|||||||
|
192.168.0.1
|
||||||
|
gfh
|
||||||
BIN
inbox/newmsg.wav
Normal file
BIN
inbox/newmsg.wav
Normal file
Binary file not shown.
BIN
outbox/msgfail.wav
Normal file
BIN
outbox/msgfail.wav
Normal file
Binary file not shown.
BIN
outbox/msgout.wav
Normal file
BIN
outbox/msgout.wav
Normal file
Binary file not shown.
Loading…
x
Reference in New Issue
Block a user