MensajePublicado: Mie 07 Jun, 2006 11:24 am    Asunto: problema al actualizar a Indy 9.0.14 Responder citando
Tengo varios proyectos en los que utilizo la versión de los componentes Indy que viene por defecto con el BCB 6 Enterprise. En una reinstalación de todo mi sistema he reinstalado también el BCB 6 pero esta vez desmarcando dichos componentes para poder instalar con posterioridad la versión 9.0.14.
Resulta que al intentar recuperar mensajes del servidor con el nuevo TIdPOP3 con el proyecto que se compiló con la anterior versión me salen excepciones. El código que utilizo en el proyecto es este:
Código:

void __fastcall TForm1::mnucomprobarcorreoExecute(TObject *Sender)
{
    Screen->Cursor = crHourGlass;
    correo->Host = host;
    correo->Port = puerto;
    correo->UserId = userid;
    correo->Password = pasword;
    if (!correo->Connected()){
      try {
        correo->Connect();
      }
      catch(EIdSocketError &E){
         AnsiString mensaje = "Hubo un error al intentar conectarse al servidor.\n"
                              "Comprueba que tienes conexión a internet y que ésta\n"
                              "no esté muy ocupada actualmente.";
         Application->MessageBoxA(mensaje.c_str(),"Error de conexión",MB_OK|MB_ICONSTOP);
         Screen->Cursor = crDefault;
      }
    }
if (correo->Connected()){
    lista->Items->Clear();
    progreso->Visible = false;
    progreso->Progress = 0;
    TListItem *ite;
    int num_mensajes = correo->CheckMessages();
    if (num_mensajes>0){
        //Screen->Cursor = crHourGlass;
        progreso->Visible = true;
        progreso->MaxValue = num_mensajes;
        for (int i=1;i<=num_mensajes;i++){
          mensa->Clear();
          correo->RetrieveHeader(i,mensa);
          int tamanyo = (correo->RetrieveMsgSize(i)/1024)+1;
          ite = lista->Items->Add();
          ite->Caption = mensa->From->Address;
          ite->SubItems->Add(mensa->Subject);
          ite->SubItems->Add(FormatDateTime("dd/mm/yyyy",mensa->Date)+" a las "+FormatDateTime("hh:nn",mensa->Date));
          ite->SubItems->Add(IntToStr(tamanyo)+" Kbs");
          Application->ProcessMessages(); //Esta línea es clave
          SendMessage(lista->Handle,WM_VSCROLL,SB_LINEDOWN,0);
          progreso->Progress++;
          StatusBar1->Panels->Items[0]->Text = "Mensaje "+IntToStr(i)+" de "+IntToStr(num_mensajes);
        }
        //Screen->Cursor = crDefault;
        StatusBar1->Panels->Items[0]->Text = IntToStr(num_mensajes)+" mensajes recibidos.";
        //sonido de nuevos mensajes
        if (CheckBox7->Checked == true){
           AnsiString sonido = ExtractFilePath(Application->ExeName)+"\_eureka.wav";
           PlaySound(sonido.c_str(),0,SND_ASYNC);
        }
    }
    else {
       StatusBar1->Panels->Items[0]->Text = "No hay mensajes en "+ComboBox1->Text;
       progreso->Visible = false;
       progreso->Progress = 0;
       //sonido no hay mensajes
       if (CheckBox7->Checked == true){
          AnsiString sonido = ExtractFilePath(Application->ExeName)+"\_matasuegras.wav";
          PlaySound(sonido.c_str(),0,SND_ASYNC);
       }
    }
    correo->Disconnect();
}
Screen->Cursor = crDefault;
}

Pues nada ... que con la versión antigua funciona bien pero con la nueva 9.0.14 no hay manera. La excepción es del tipo "Acces violation at address ..." seguida de un montón de códigos numéricos, para terminar mostrando un mensaje que dice algo así como "Anormal program termination".
_________________
¡ADELANTE CON ESTE SUPER FORO!