|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - _Viktor
Páginas: 1 ... 6 7 [8] 9 10 11
176
« en: Sábado 6 de Diciembre de 2003, 16:19 »
Hola a todos, me dirijo a Uds. para pedirles un favor. Cada vez que alguien postee alguna duda y esta reciba respuestas seria ideal que quien tuvo la duda o problemas con algun codigo indicara si la solucion propuesta cumplia con lo que se esperaba, de lo contrario tambien indicarlo.
Esto por la sencilla razon de que ahi muchas preguntas contestadas varias veces (mismo problema), y si se deja claro que la solucion sirvio tal vez para un nuevo usuario no sea necesario publicar, sino tan solo usar la opcion buscar de este foro.
Esperando su comprencion ...
Saludos
177
« en: Sábado 6 de Diciembre de 2003, 03:16 »
Esto servira para aplicaciones que no deben dejar que el pc se apague.... No abusen de el !!!!!! //---------------------------------------------------------- // unit1.h class TForm1 : public TForm { __published: // IDE-managed Components private: // User declarations void __fastcall WMQueryEndSession(TWMQueryEndSession &msg); public: // User declarations __fastcall TForm1(TComponent* Owner); BEGIN_MESSAGE_MAP MESSAGE_HANDLER(WM_QUERYENDSESSION,TWMQueryEndSession,WMQueryEndSession) END_MESSAGE_MAP(TForm) }; //---------------------------------------------------------- //---------------------------------------------------------- // unit1.cpp void __fastcall TForm1::WMQueryEndSession(TWMQueryEndSession &msg) { msg.Result = 0; ShowMessage("Lo siento, no tengo ganas de apagarme" ) ; }
178
« en: Sábado 6 de Diciembre de 2003, 03:14 »
void __fastcall TForm1::Button1Click(TObject *Sender) { DWORD dwSize = MAX_COMPUTERNAME_LENGTH + 1; char szBuf[MAX_COMPUTERNAME_LENGTH + 1]; szBuf[0] = '\0'; GetComputerName(szBuf, &dwSize); Label1->Caption = szBuf; }
Suerte!
179
« en: Sábado 6 de Diciembre de 2003, 03:06 »
Hola, primero hagan un formulario con la sgte. forma:  Luego en el evento OnCreate del form lo siguiente: //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { for(int i = 0; i < Screen->Fonts->Count; i++) { ListBox1->Items->Add(Screen->Fonts->Strings[i]); ComboBox1->Items->Add(Screen->Fonts->Strings[i]); } int F = ComboBox1->Items->IndexOf("Times New Roman " ); if( F ) // If the font exists, select it ComboBox1->ItemIndex = F; } //---------------------------------------------------------------------------
luego: //--------------------------------------------------------------------------- void __fastcall TForm1::ListBox1DrawItem(TWinControl *Control, int Index, TRect &Rect, TOwnerDrawState State) { if( State.Contains(odSelected) ) ListBox1->Canvas->Brush->Color = clHighlight; else ListBox1->Canvas->Brush->Color = clWhite; ListBox1->Canvas->FillRect(Rect); ListBox1->Canvas->Pen->Color = clWhite; ListBox1->Canvas->Font->Name = ListBox1->Items->Strings[Index]; ListBox1->Canvas->Font->Size = 12; ListBox1->Canvas->TextOut(Rect.Left, Rect.Top, ListBox1->Items->Strings[Index]); } //--------------------------------------------------------------------------- void __fastcall TForm1::ComboBox1DrawItem(TWinControl *Control, int Index, TRect &Rect, TOwnerDrawState State) { if( State.Contains(odSelected) ) ComboBox1->Canvas->Brush->Color = clHighlight; else ComboBox1->Canvas->Brush->Color = clWhite; ComboBox1->Canvas->FillRect(Rect); ComboBox1->Canvas->Font->Name = ComboBox1->Items->Strings[Index]; ComboBox1->Canvas->Font->Size = 12; ComboBox1->Canvas->TextOut(Rect.Left, Rect.Top-2, ComboBox1->Items->Strings[Index]); } //---------------------------------------------------------------------------
para que al final el resultado se vea de esta forma:  Espero les sirva. Saludos! [EDIT: no modifique nada, fue un error  ]
180
« en: Sábado 6 de Diciembre de 2003, 03:04 »
Hola, aqui esta el codigo: #include <windows.h> #include <iostream> #include <conio.h> using namespace std; int main() { cout << "direccion MAC es: "; GUID uuid; CoCreateGuid(&uuid); char mac_addr[18]; sprintf(mac_addr,"%02X:%02X:%02X:%02X:%02X:%02X", uuid.Data4[2],uuid.Data4[3],uuid.Data4[4], uuid.Data4[5],uuid.Data4[6],uuid.Data4[7]); cout << mac_addr << endl; getch(); return 0; }
eso para C++, si se quisiera aplicar a un programa hecho en C++ Builder seria asi: //--------------------------------------------------------------------------- #include <vcl.h> #include <iostream.h> #include <conio.h> #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { using namespace std; GUID uuid; CoCreateGuid(&uuid); char mac_addr[18]; //obtenemos los datos y los almacenamos en mac_Addr sprintf(mac_addr,"%02X:%02X:%02X:%02X:%02X:%02X", uuid.Data4[2],uuid.Data4[3],uuid.Data4[4], uuid.Data4[5],uuid.Data4[6],uuid.Data4[7]); //como mac_addr es char[], hacemos un cast a String Edit1->Text= String(mac_addr); //y listo !!! } //---------------------------------------------------------------------------
Asi de simple.... Suerte!
181
« en: Sábado 6 de Diciembre de 2003, 03:03 »
Para crear un alias ODBC //bool ret; //ret = CreateODBCAlias("MiAlias", //"miBase.mdb", //"C:\directorio\datos\", //"Esto es una prueba"); // Devuelve true si se crea correctamente //ShowMessage(ret ? "Creado" : "Error"); bool CreateODBCAlias(String sAlias, String sDB, String Dir, String sDescription) { typedef BOOL (__stdcall *pSQLConfigDataSource)(HWND, WORD, LPCSTR, LPCSTR); pSQLConfigDataSource SQLConfigDataSource; HINSTANCE hLib; bool bRet = false; hLib = LoadLibrary("odbccp32.dll"); if (hLib) { SQLConfigDataSource = (pSQLConfigDataSource) GetProcAddress(hLib, "SQLConfigDataSource"); if (SQLConfigDataSource) { char szParam[1024]; sprintf(szParam, "DSN=%s; Description=%s; DefaultDir=%s; DBQ=%s", sAlias.c_str(), sDescription.c_str(), sDir.c_str(), sDB.c_str()); bRet = SQLConfigDataSource(NULL, 1 /*ODBC_ADD_DSN*/, "Microsoft Access Driver (*.mdb)", szParam); } FreeLibrary(hLib); } // Devuelve true si se crea o false en caso contrario return bRet; }
Para Borrar un alias ODBC //LLAMADA //bool ret = RemoveODBCAlias("Rebeca"); // devuelve true en caso de que se borre //ShowMessage(ret ? "Borrado" : "Error"); bool RemoveODBCAlias(String sAlias) { typedef BOOL (__stdcall *pSQLConfigDataSource)HWND,ORD, LPCSTR, LPCSTR); pSQLConfigDataSource SQLConfigDataSource; HINSTANCE hLib; bool bRet = false; hLib = LoadLibrary("odbccp32.dll"); if (hLib) { SQLConfigDataSource = (pSQLConfigDataSource) GetProcAddress(hLib, "SQLConfigDataSource"); if (SQLConfigDataSource) { char szParam[1024]; sprintf(szParam, "DSN=%s;", sAlias.c_str)); bRet = SQLConfigDataSource(NULL,3 /*ODBC_REMOVE_DSN*/, "Microsoft Access Driver (*.mdb)", szParam); } FreeLibrary(hLib); } // Devuelve true si se borra o false en caso contrario return bRet; }
Autor: _Leo... Saludos.-
182
« en: Sábado 6 de Diciembre de 2003, 03:02 »
#include <winsock2.h> // ... void __fastcall TForm1::Button1Click(TObject *Sender) { WORD wVersionRequested; WSADATA wsaData; char name[255]; AnsiString ip; PHOSTENT hostinfo; wVersionRequested = MAKEWORD( 2, 0 ); if ( WSAStartup( wVersionRequested, &wsaData ) == 0 ) { if( gethostname ( name, sizeof(name)) == 0) { Label1->Caption = name; if((hostinfo = gethostbyname(name)) != NULL) { ip = inet_ntoa (*(in_addr *)*hostinfo->h_addr_list); Label2->Caption = ip; } } WSACleanup( ); } }
Autor: RPorcar.- Saludos!!
183
« en: Sábado 6 de Diciembre de 2003, 03:01 »
void __fastcall TForm1::Button1Click(TObject *Sender) { HINSTANCE dllInstance = LoadLibrary("url.dll"); bool (__stdcall *InetIsOffline)(int); InetIsOffline = (bool(__stdcall*)(int))GetProcAddress(dllInstance, "InetIsOffline"); if (InetIsOffline(0)) ShowMessage("No conectado a internet"); else ShowMessage("Conectado a internet"); FreeLibrary(dllInstance); }
Autor: RPorcar
184
« en: Sábado 6 de Diciembre de 2003, 03:00 »
Insertamos dos Image y un Button. El código para el Button es este: //El Image1 es donde pintamos y el Image2 es donde está la imagen original for(int i = 0; i <= Image2->Width; i++) { //Copio en el trozo "X" del Image1 un trozo "Y" del Image2 Image1->Canvas->CopyRect(Rect(0,0,Image1->Width,Image1->Height), Image2->Canvas, Rect(0,0,i,Image2->Height)); //Y refresco la imagen Image1->Refresh(); }
185
« en: Miércoles 3 de Diciembre de 2003, 21:32 »
Busca el "Zen Timer" en Internet, asegurate de que la version que te bajas es la que sirve para Borland, una vez que lo tienes es muy facil de usar, teoricamente alcanza precisiones de microsegundos...Otra cosa, ninguno de los compiladores que mencionas pertenecen a este subforo ... pero igual .. Suerte. 
186
« en: Lunes 1 de Diciembre de 2003, 22:03 »
Yo tengo uno, te lo hare llegar apenas llegue a mi casa... eso en unas 4 horas mas. Saludos
187
« en: Domingo 30 de Noviembre de 2003, 06:21 »
Entonces creo que se redimensiona sólo si el tamaño es superior a 140x140 o si se enlaza desde un servidor externo
Ese no seria el caso, mi avathar esta en otro servidor, debe ser lo que mencionas, si el tamaño supera las medidas dadas.... Es tarde, mañana tratare de nuevo lo del inicio de sesion, buenas a todos y chau. Felicitaciones nuevamente...
188
« en: Sábado 29 de Noviembre de 2003, 23:25 »
Hola a todos, como dije en otro post por ahi, me parece espectacular el cambio, de verdad que si, y sobre todo por lo rapido que se puso en marcha. Aunque me "asalta una duda", no me funciona correctamente el inicio de sesion automatico como antes, ¿alguien mas a tenido ese problema? Saludos y felicitaciones a Solocodigo por su esfuerzo (y a quienes lo hayan apoyado.)
189
« en: Sábado 29 de Noviembre de 2003, 21:35 »
Ahora si tengo una duda, tengo mis cookies activados y aun asi no me toma el inicio de secion automatico.
Has recibido algun mensaje diciendo lo mismo ?
Saludos y felicitaciones nuevamente. Perdon, fui yo el del post anterior, por lo mismo no note que no estaba logeado. Saludos!
190
« en: Sábado 29 de Noviembre de 2003, 21:10 »
No es ninguna duda, solo quiero felicitar a SOLOCODIGO por el cambio y el esfuerzo que debe haber significado exportar los datos del antiguo foro a este. EXPECTACULAR!!!!
191
« en: Sábado 29 de Noviembre de 2003, 01:06 »
Podrias poner un poco de codigo ??, asi seria mucho mas facil ver en que te estas equivocando, si es que no es problema del servidor SMTP
Saludos!
192
« en: Sábado 29 de Noviembre de 2003, 01:04 »
La verdad, hasta hace un tiempo el servidor Esfera.cl de mi pais (chile), funcionaba sin ningun problemas, por lo que me he enterado han bloqueado el smtp, llevo bastante tiempo buscando uno similar pero hasta ahora sin suerte.
Si llego a saber de uno, lo hare saber.
Saludos! y siento no poder ayudarte mucho.
193
« en: Jueves 27 de Noviembre de 2003, 03:44 »
Pues que te puedo decir, mal empiezas buscando un programa hecho que supongo es una tarea, ¿verdad?, lamentablemente en eso no te puedo ayudar, ya que mas que ayudar te estaria haciendo un daño, si tienes dudas especificas de algo no dudes en preguntar, pero no digas "todo hecho", que practicamente lo que quieres.
Ademas este es un foro de C++ Builder, tienes otros sub-foros para C, C++.
Un Saludo!
194
« en: Martes 25 de Noviembre de 2003, 04:40 »
Hola, mientras pueda ayudarte lo hare, no hay problema en eso, solo trata de agotar tus ideas para luego consultar aca. Si se como ayudarte lo hare.
Saludos!:good:
195
« en: Viernes 21 de Noviembre de 2003, 17:47 »
Si lo que quieres es por ejemplo desde Form1 abrir el Form2, es sencillo, asumiendo los nombres que da por defecto el builder: Form1: Unit1.cpp, Unit1.h Form2: UInit2.cpp, Unit2.h En el Cpp del Form1 incluyes el archivo cabecera del Form2, es decir: Luego en el evento que quieras llamar o mostrar el Form2, simplemente invocas el metodo Show o ShowModal del Form2, al que ahora puedes acceder ya que incluiste su header anteriormente, es decir: Form2->Show(); Form2->ShowModal(); //En forma Modal
Eso, si tienes alguna duda, dime que version de Builder estas usando y trato de instalarla para enviarte un ejemplo, (Tengo la 6 instalada, pero tambien tengo la 4 y 5 por ahi). Yo tambien empeze con C, C++, a C++ Builder pase por el instituto donde estudio, pero creeme si te gusta C++ no te vas a arrepentir nunca de aprender Builder, no creerias las cosas que se pueden hacer.... Suerte!!!
196
« en: Miércoles 12 de Noviembre de 2003, 00:08 »
Mounstro ??? jajajaja Bueno... genial que pueda ayudarte... Saludos!!!! 
197
« en: Martes 11 de Noviembre de 2003, 17:09 »
Hola, para ir eliminando caracteres de un Edit puedes usar el metodo Delete de AnsiString, de la siguiente forma: void __fastcall TForm1::Button1Click(TObject *Sender) { Edit1->Text = Edit1->Text.Delete(Edit1->Text.Length(),1); }
Y para ir agregando de linea en linea en un memo puedes usar el metodo Add, de la siguiente forma: Memo1->Lines->Add(Operacion->Text);
Donde operacion es el Edit que tiene la operacion completa hasta que se presiono el "=" y el metodo Add agrega una linea cada vez que es invocado. Espero te sirva. Saludos!
198
« en: Martes 11 de Noviembre de 2003, 02:25 »
Especificamente para que quieres usarlas, tal vez existe una alternativa mejor
Saludos!
199
« en: Sábado 8 de Noviembre de 2003, 23:01 »
Que bueno, esa era la idea.... 
200
« en: Sábado 8 de Noviembre de 2003, 01:36 »
Hola, en el orden que preguntaste. 1.- Para restringir el tipo de datos que se pueden recibir en un Edit, puedes usar el evento OnKeyPress, para eso comparas el parametro Key con lo que quieres que sea lo ingresado, de ser otra cosa anulas la entrada dandole Key=0.- 2.- Para asignar el foco a cierto edit, puedes usar el metodo SetFocus() derivado de TComponent, de esta forma: void __fastcall TForm1::Button1Click(TObject *Sender) { Edit1->SetFocus(); }
Asi el foco (cursor), en este caso quedara en el Edit1 3.- Si lo que quieres es un boton con el texto del Caption de un determinado color, te recomiendo que uses un SpeedButton (Paleta Additional). Espero te quede mas claro, de lo contrario solo preguntame... Saludos
Páginas: 1 ... 6 7 [8] 9 10 11
|
|
|
Mostrar Mensajes
