• Viernes 31 de Octubre de 2025, 13:20

Mostrar Mensajes

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 - vankul

Páginas: [1]
1
C++ Builder / synedit aplicar negrita
« en: Miércoles 25 de Mayo de 2022, 23:03 »
Hola a todos, resulta que estoy trabajando con el componente synedit, lo que pretendo es que al mostrar el SynCompletionProposal me aparezca la primera palabra en negrita y el resto no. Lo hice una vez pero no me acuerdo como.
Gracias.

2
C++ Builder / Re:Error
« en: Martes 21 de Noviembre de 2017, 22:05 »
Nada, sigue fallando.

3
C++ Builder / Error
« en: Miércoles 3 de Mayo de 2017, 23:19 »
Hola, tengo el siguiente código:
Código: [Seleccionar]
const AnsiString DataBaseFileName = "\socis.abs";
Código: [Seleccionar]
void __fastcall TForm1::FormCreate(TObject *Sender)
{
ABSDatabase1->DatabaseFileName = ExtractFilePath(Application->ExeName) + DataBaseFileName;
ABSDatabase1->Open();
ABSQuery1->Close();
ABSQuery1->Open();
}
En el ordenador donde programo funciona bien pero en otro me dice que no encuentra la base de datos y en teoría está dentro del directorio del programa pero no hay manera.
Alguna sugerencia gracias.

4
C++ Builder / Re:Una ayudita
« en: Sábado 7 de Diciembre de 2013, 21:36 »
Muchas gracias ProfesorX, provaré lo que me sugieres  :suerte:

5
C++ Builder / Una ayudita
« en: Martes 3 de Diciembre de 2013, 20:35 »
Tengo el siguiente código que me funciona OK con imágenes en .bmp pero no con las .jpg y quisiera una solución; muchas gracias.
Código: [Seleccionar]
void __fastcall TForm1::Button1Click(TObject *Sender)
{
String dir = "C:";
if (SelectDirectory("Elige carpeta:","",dir)) {
FileListBox1->Directory = dir;
FileListBox1->ItemIndex = 0;
for (int i = 0; i < FileListBox1->Count; i++) {
lis->Add(FileListBox1->FileName);
FileListBox1->ItemIndex++;
}
if (lis->Count>0) {
Graphics::TBitmap* resBmp;
TJPEGImage *ImagenJpg = new TJPEGImage();
TListItem *Item;
String extension;
for (int i = 0; i < lis->Count; i++) {
extension = ExtractFileExt(lis->Strings[i]);
if ((extension.UpperCase()==".JPG")||(extension.UpperCase()==".JPEG")){
ImagenJpg->LoadFromFile(lis->Strings[i]);
resBmp->Height = ImageList1->Height;
resBmp->Width = ImageList1->Width;
ImageList1->Masked = false;
ImagenJpg->DIBNeeded();
resBmp->Assign(ImagenJpg);
ImageList1->Add(resBmp,NULL);
Item = ListView1->Items->Add();
Item->Caption = ExtractFileName(lis->Strings[i]);
Item->ImageIndex = i;

}
else {
if (extension.UpperCase()==".BMP") {
resBmp = new Graphics::TBitmap();
resBmp->Height = ImageList1->Height;
resBmp->Width = ImageList1->Width;
ImageList1->Masked = false;
resBmp->LoadFromFile(lis->Strings[i]);
ImageList1->Add(resBmp,NULL);
Item = ListView1->Items->Add();
Item->Caption = ExtractFileName(lis->Strings[i]);
Item->ImageIndex = i;
}
}
}
}
else {
ShowMessage("No hay archivos válidos en el directorio.");
}
}
}

6
C++ Builder / Re:Varias cuentas idpop3
« en: Domingo 24 de Noviembre de 2013, 22:33 »
Ya lo he resuelto, pongo el código:
Código: [Seleccionar]
void __fastcall TForm1::mnuComprobarcorreoExecute(TObject *Sender)
{
   if (TreeView1->Items->Count == 0) {
     ShowMessage("No hay ninguna cuenta establecida\n"
              "pulsa sobre nueva cuenta para establecer una.");
   }
   else {
      String host = "";
      String userid = "";
      String pasword = "";
      int puerto = 0;//el if que estaba aquí sobra
      for (int i = 0; i <contes>Count; i++) {
         host = pop3->ReadString(contes->Strings[i],"host","");// y aquí sustituyendo lo que había por lo que hay
         userid = pop3->ReadString(contes->Strings[i],"userid","");
         pasword = pop3->ReadString(contes->Strings[i],"pasword","");
         puerto = pop3->ReadInteger(contes->Strings[i],"puerto",0);
         if (correu->Connected()) {
            correu->Disconnect();
         }
         if (!correu->Connected()) {
            correu->Host = host;
            correu->Username = userid;
            correu->Password = pasword;
            correu->Port = puerto;
            if (pop3->ReadBool(contes->Strings[i],"conexionsegura",false)){
               correu->IOHandler = IdSSLIOHandlerSocketOpenSSL1;
            }
            else {
               correu->IOHandler = NULL;
            }
               //ShowMessage(contes->Text);
               //ShowMessage(contes->Strings[i]);
               correu->Connect();
               Application->ProcessMessages();
               int num_mensajes = correu->CheckMessages();
               if (num_mensajes==0){
                  //Label12->Font->Color = clBlack;
                  //Label12->Caption = "No hay mensajes en "+ListView4->Items->Item[y]->Caption+".";
                  //Label12->Visible = true;
               }
               else {
                  //ShowMessage("Hay mensajes...");

                  for (int e=1;e<num_mensajes>Clear();
                        correu->RetrieveHeader(e,mensa);
                        TListItem *ite;
                        ite = lista->Items->Add();
                        ite->Caption = IntToStr(e);
                        ite->SubItems->Add(mensa->From->Address);
                        ite->SubItems->Add(mensa->Subject);
                        ite->SubItems->Add(mensa->Date.DateString()+" - "+mensa->Date.TimeString());
                        ite->SubItems->Add(IntToStr((correu->RetrieveMsgSize(e)/1024)+1)+" kbs");
                        ite->ImageIndex = 3;
                        ite->SubItemImages[1] = 2;
                        Application->ProcessMessages(); //Esta línea es clave
                        SendMessage(lista->Handle,WM_VSCROLL,SB_LINEDOWN,0);
                  }

               }
               correu->Disconnect();
         }

      }

   }
}

7
C++ Builder / Varias cuentas idpop3
« en: Domingo 17 de Noviembre de 2013, 20:13 »
El siguiente código me funciona bien para una sola cuenta pero cuando hay más de una me da un error en blanco y no sé porqué:
Código: [Seleccionar]
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (TreeView1->Items->Count == 0) {
  ShowMessage("No hay ninguna cuenta establecida\n"
  "pulsa sobre nueva cuenta para establecer una.");
}
else {
  String host = "";
  String userid = "";
  String pasword = "";
  int puerto = 0;
  if (lis->Count == 1) {
for (int i = 0; i < lis->Count; i++) {
host = opti->ReadString(TreeView1->Items->Item[i]->Text,"host","");
userid = opti->ReadString(TreeView1->Items->Item[i]->Text,"userid","");
pasword = opti->ReadString(TreeView1->Items->Item[i]->Text,"pasword","");
puerto = opti->ReadInteger(TreeView1->Items->Item[i]->Text,"puerto",0);
if (correu->Connected()) {
correu->Disconnect();
}
if (!correu->Connected()) {
correu->Host = host;
correu->Username = userid;
correu->Password = pasword;
correu->Port = puerto;
if (opti->ReadBool(TreeView1->Items->Item[i]->Text,"conexionsegura",false)){
correu->IOHandler = IdSSLIOHandlerSocketOpenSSL1;
}
else {
correu->IOHandler = NULL;
}
correu->Connect();
Application->ProcessMessages();
int num_mensajes = correu->CheckMessages();
if (num_mensajes==0){
Label12->Font->Color = clBlack;
Label12->Caption = "No hay mensajes en "+TreeView1->Items->Item[i]->Text+".";
Label12->Visible = true;
}
else {
//ShowMessage("Hay mensajes...");
Label1->Caption = IntToStr(num_mensajes);
for (int e=1;e<=num_mensajes;e++){
mensa->Clear();
correu->RetrieveHeader(e,mensa);
TListItem *ite;
ite = lista->Items->Add();
ite->Caption = IntToStr(e);
ite->SubItems->Add(mensa->From->Address);
ite->SubItems->Add(mensa->Subject);
ite->SubItems->Add(mensa->Date.DateString()+" - "+mensa->Date.TimeString());
ite->SubItems->Add(IntToStr((correu->RetrieveMsgSize(e)/1024)+1)+" kbs");
ite->ImageIndex = 1;
ite->SubItemImages[0] = 0;
Application->ProcessMessages(); //Esta línea es clave
SendMessage(lista->Handle,WM_VSCROLL,SB_LINEDOWN,0);
}

}
correu->Disconnect();
}

}
   }
   else{
   //ShowMessage("has entrado en el else...");
   for (int i = 0; i < lis->Count; i++) {
host = opti->ReadString(TreeView1->Items->Item[i]->Text,"host","");
userid = opti->ReadString(TreeView1->Items->Item[i]->Text,"userid","");
pasword = opti->ReadString(TreeView1->Items->Item[i]->Text,"pasword","");
puerto = opti->ReadInteger(TreeView1->Items->Item[i]->Text,"puerto",0);
if (correu->Connected()) {
correu->Disconnect();
}
if (!correu->Connected()) {
correu->Host = host;
correu->Username = userid;
correu->Password = pasword;
correu->Port = puerto;
if (opti->ReadBool(TreeView1->Items->Item[i]->Text,"conexionsegura",false)){
correu->IOHandler = IdSSLIOHandlerSocketOpenSSL1;
}
else {
correu->IOHandler = NULL;
}
correu->Connect();
Application->ProcessMessages();
int num_mensajes = correu->CheckMessages();
if (num_mensajes==0){
Label12->Font->Color = clBlack;
Label12->Caption = "No hay mensajes en "+TreeView1->Items->Item[i]->Text+".";
Label12->Visible = true;
}
else {
//ShowMessage("Hay mensajes...");
Label1->Caption = IntToStr(num_mensajes);
for (int e=1;e<=num_mensajes;e++){
mensa->Clear();
correu->RetrieveHeader(e,mensa);
TListItem *ite;
ite = lista->Items->Add();
ite->Caption = IntToStr(e);
ite->SubItems->Add(mensa->From->Address);
ite->SubItems->Add(mensa->Subject);
ite->SubItems->Add(mensa->Date.DateString()+" - "+mensa->Date.TimeString());
ite->SubItems->Add(IntToStr((correu->RetrieveMsgSize(e)/1024)+1)+" kbs");
ite->ImageIndex = 1;
ite->SubItemImages[0] = 0;
Application->ProcessMessages(); //Esta línea es clave
SendMessage(lista->Handle,WM_VSCROLL,SB_LINEDOWN,0);
}

}
correu->Disconnect();
}

}
   }
  }
}
//---------------------------------------------------------------------------
Agradeceré cualquier posible solución. Muchas gracias.
Utilizo C++ XE5 bajo windows7 64 bits.

Páginas: [1]