[CCW: .NET to VB6] Crash dell'applicazione client

[0rph3n]

ciao ragassuoli,
succede che quando chiamo un metodo di una classe de sto cazzo di assembly della minchia, VB6 da i numeri e manda tutto a puttane.
Il metodo incriminato viene eseguito senza problemi, ma quando è ora che ritorni ad essere eseguito il codice VB6 si chiude l'applicazione.

Ovviamente nel programmino VB6 c'è l'immancabile
On Error GoTo GestioneErrori il problema è che in GestioneErrori non ci va :D perchè si blocca direttamente l'esecuzione :fagiano:

solo quando invoco questo metodo infame rompe i coglioni, mentre con la creazione dell'oggetto e con le sue property non ho nessun problema...
ormai è tutta oggi che ci sbatto la testa e ora mi sto :mc:

ah ovviamente la classe da esporre ha la sua interfaccia, l'assembly l'ho registrato, ho creato la libreria dei tipi e l'ho registrato nella GAC :mc:

aiuto :cry:

[^TiGeRShArK^]

...magari postare il codice assembly che causa il casino? :stordita:

[0rph3n]

:fagiano:
provvedo

[0rph3n]

queste sono i metodi interessati, il client invoca il metodo public void Send(int nCodSync, String nomeMittente, String indirizzoMittente)
come potrete notare è codice scritto no velocemente...un po' di più, ed è il frutto di aggiunte e sopraaggiunte (il classico modo dell'azienda in cui lavoro) :(


public void Send(int nCodSync, String nomeMittente, String indirizzoMittente)
{
Message message = new Message();

message.SenderName = nomeMittente;
message.SenderAddress = indirizzoMittente;

OleDbConnection conn = null;
OleDbCommand cmd = null;

int nCodPratica = -1;

try
{
conn = new OleDbConnection(this.connectionString);
conn.Open();
}
catch (Exception ex)
{
throw new ApplicationException("Si è verificato un problema nell'accesso al DataBase.\n\n" + ex.Message);
}

try
{
cmd = conn.CreateCommand();

String query = "SELECT cNomeFile, cPathDestinazione, nCodMessaggio, nCodPratica FROM ATTIVITA_SYNC WHERE nCodSync = " + nCodSync.ToString();
cmd.CommandText = query;
OleDbDataAdapter adapter = new OleDbDataAdapter(cmd);
System.Data.DataTable table = new System.Data.DataTable();
adapter.Fill(table);

int nCodMessaggio = -1;
nCodPratica = -1;

if (table.Rows.Count > 0)
{
if (!table.Rows[0].IsNull("nCodMessaggio"))
{
nCodMessaggio = System.Convert.ToInt32(table.Rows[0]["nCodMessaggio"]);
}
else
{
throw new ApplicationException("Campo nCodMessaggio nella tabella ATTIVITA_SYNC non valorizzato.");
}

if (!table.Rows[0].IsNull("nCodPratica"))
{
nCodPratica = System.Convert.ToInt32(table.Rows[0]["nCodPratica"]);
}
else
{
throw new ApplicationException("Campo nCodPratica nella tabella ATTIVITA_SYNC non valorizzato.");
}

if (!table.Rows[0].IsNull("cNomeFile") && !table.Rows[0].IsNull("cPathDestinazione"))
{
message.AttachmentFilePath = table.Rows[0]["cPathDestinazione"].ToString() + table.Rows[0]["cNomeFile"].ToString() + ".pdf";
}
else
{
throw new ApplicationException("Campo cNomeFile o cPathDestinazione nella tabella ATTIVITA_SYNC non valorizzato.");
}
}
else
{
throw new ApplicationException("Non è stato trovato alcun record con nCodSync = " + nCodSync.ToString() + " nella tabella ATTIVITA_SYNC.");
}
table.Dispose();
table = null;

query = "SELECT cDesOggetto, cDesCorpo FROM EMAIL_MESSAGGI WHERE bCancellato = 0 AND nCodMessaggio = " + nCodMessaggio.ToString();
cmd.CommandText = query;
table = new System.Data.DataTable();
adapter.Fill(table);

if (table.Rows.Count > 0)
{
if (!table.Rows[0].IsNull("cDesOggetto"))
{
message.Subject = table.Rows[0]["cDesOggetto"].ToString();
}
else
{
throw new ApplicationException("Il campo cDesOggetto della tabella EMAIL_MESSAGGI per il record con nCodMessaggio = " + nCodMessaggio.ToString() + " non è valorizzato.");
}

if (!table.Rows[0].IsNull("cDesCorpo"))
{
message.Body = table.Rows[0]["cDesCorpo"].ToString();
}
else
{
throw new ApplicationException("Il campo cDesCorpo della tabella EMAIL_MESSAGGI per il record con nCodMessaggio = " + nCodMessaggio.ToString() + " non è valorizzato.");
}
}
else
{
throw new ApplicationException("Non è stato trovato alcun record con nCodMessaggio = " + nCodMessaggio.ToString() + " nella tabella EMAIL_MESSAGGI.");
}
table.Dispose();
table = null;

query = "SELECT cNome, cEmail FROM EMAIL_INDIRIZZI WHERE nCodIndirizzo = 1";
cmd.CommandText = query;
table = new System.Data.DataTable();
adapter.Fill(table);

if (table.Rows.Count > 0)
{
if (!table.Rows[0].IsNull("cNome"))
{
message.RecipientName = table.Rows[0]["cNome"].ToString();
}
else
{
throw new ApplicationException("Il campo cNome della tabella EMAIL_INDIRIZZI per il record con nCodIndirizzo = 1 non è valorizzato.");
}

if (!table.Rows[0].IsNull("cEmail"))
{
message.RecipientAddress = table.Rows[0]["cEmail"].ToString();
}
else
{
throw new ApplicationException("Il campo cEmail della tabella EMAIL_INDIRIZZI per il record con nCodIndirizzo = 1 non è valorizzato.");
}
}
else
{
throw new ApplicationException("Non è stato trovato alcun record con nCodIndirizzo = 1 nella tabella EMAIL_INDIRIZZI.");
}
table.Dispose();
table = null;
}
catch (Exception ex)
{
throw new ApplicationException("Si è verificato un'errore durante il recupero dei dati.\n\n" + ex.Message);
}
finally
{
if (cmd != null)
cmd.Dispose();

if (conn != null)
{
conn.Close();
conn.Dispose();
}
}

this.Send(message, nCodPratica);
}

public void Send(Message message, int nCodPratica)
{
MailMessage mailMessage = new MailMessage();

if (message.SenderAddress != null && !message.SenderAddress.Equals(string.Empty))
mailMessage.From = message.SenderAddress;
else
{
throw new ApplicationException("L'indirizzo email del mittente non è stato specificato.");
}

if (message.RecipientAddress != null && !message.RecipientAddress.Equals(string.Empty))
{
if (message.RecipientName != null && !message.RecipientName.Equals(string.Empty))
mailMessage.To = "\"" + message.RecipientName + "\" <" + message.RecipientAddress + ">";
else
mailMessage.To = message.RecipientAddress;
}
else
{
throw new ApplicationException("L'indirizzo email del destinatario non è stato specificato.");
}

mailMessage.Subject = message.Subject;
mailMessage.Body = message.Body;

switch (message.Format)
{
case EMailFormat.Text:
mailMessage.BodyFormat = System.Web.Mail.MailFormat.Text;
break;
case EMailFormat.HTML:
mailMessage.BodyFormat = System.Web.Mail.MailFormat.Html;
break;
}

switch (message.Encoding)
{
case EMailEncoding.ASCII:
mailMessage.BodyEncoding = System.Text.Encoding.ASCII;
break;
case EMailEncoding.BigEndianUnicode:
mailMessage.BodyEncoding = System.Text.Encoding.BigEndianUnicode;
break;
case EMailEncoding.Default:
mailMessage.BodyEncoding = System.Text.Encoding.Default;
break;
case EMailEncoding.Unicode:
mailMessage.BodyEncoding = System.Text.Encoding.Unicode;
break;
case EMailEncoding.UTF7:
mailMessage.BodyEncoding = System.Text.Encoding.UTF7;
break;
case EMailEncoding.UTF8:
mailMessage.BodyEncoding = System.Text.Encoding.UTF8;
break;
}

if (message.AttachmentFilePath != null && !message.AttachmentFilePath.Equals(string.Empty))
{
if (System.IO.File.Exists(message.AttachmentFilePath))
{
System.Web.Mail.MailEncoding attachmentEncoding = System.Web.Mail.MailEncoding.Base64;
switch (message.AttachmentEncoding)
{
case AttachmentFileEncoding.Base64:
attachmentEncoding = System.Web.Mail.MailEncoding.Base64;
break;
case AttachmentFileEncoding.UUEncode:
attachmentEncoding = System.Web.Mail.MailEncoding.UUEncode;
break;
}
mailMessage.Attachments.Add(new MailAttachment(message.AttachmentFilePath, attachmentEncoding));
}
else
{
throw new ApplicationException("File da allegare non trovato.");
}
}

if (this.UserName != null && !this.UserName.Equals(string.Empty))
{
// Imposta l'autenticazione di base
mailMessage.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", 1);
// Imposta l'username con il quale connettersi al server smtp
mailMessage.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", this.UserName);
// Imposta la password con la quale connettersi al server smtp
mailMessage.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", this.Password);
}

if (this.SMTPServer != null && !this.SMTPServer.Equals(string.Empty))
{
SmtpMail.SmtpServer = this.SMTPServer;
}
else
{
throw new ApplicationException("Indirizzo o nome del server SMTP non impostato.");
}

// Prova a spedire la mail
try
{
SmtpMail.Send(mailMessage);
}
catch (Exception ex)
{
throw new ApplicationException("Si è verificato un'errore durante l'invio del messaggio.\n\n" + ex.Message);
}

this.NotifyEmailDelivery(nCodPratica, message.RecipientName);
}

private void NotifyEmailDelivery(int nCodPratica, String nomeDestinatario)
{
OleDbConnection conn = null;
OleDbTransaction transaction = null;
OleDbCommand cmd = null;
String query = String.Empty;
try
{
conn = new OleDbConnection(this.connectionString);
conn.Open();
}
catch (Exception ex)
{
throw new ApplicationException("Si è verificato un problema nell'accesso al DataBase.\n\n" + ex.Message);
}

try
{
transaction = conn.BeginTransaction();
}
catch (Exception ex)
{
throw new ApplicationException("Si è verificato un problema nell'inizializzazione della transazione.\n\n" + ex.Message);
}

try
{
cmd = conn.CreateCommand();
cmd.Transaction = transaction;

query = "UPDATE PRATICA_DATI SET bInvioDittaIncaricata = 1 WHERE nCodPratica = " + nCodPratica.ToString();
cmd.CommandText = query;
cmd.ExecuteNonQuery();

int totInterventi = -1;
query = "SELECT COUNT(nCodPratica) AS totInterventi FROM PRATICA_INTERVENTI WHERE nCodPratica = " + nCodPratica.ToString() + " AND bCancellazione = 0 AND bIdentificativo = 0";
cmd.CommandText = query;
totInterventi = System.Convert.ToInt32(cmd.ExecuteScalar());

if (totInterventi == 0)
{
query = "INSERT INTO PRATICA_INTERVENTI (nCodIntervento, nCodPratica, cDesPersonale, dDataTrasmissione, bCancellazione, bIdentificativo)" +
" SELECT CASE WHEN MAX(nCodIntervento) IS NULL THEN 1 ELSE MAX(nCodIntervento) + 1 END," +
nCodPratica + "," +
" '" + nomeDestinatario + "'," +
" GETDATE()," +
" 0," +
" 0" +
" FROM PRATICA_INTERVENTI";
}
else
{
query = "SELECT dDataTrasmissione FROM PRATICA_INTERVENTI WHERE nCodPratica = " + nCodPratica.ToString() + " AND bCancellazione = 0 AND bIdentificativo = 0 AND cDesPersonale = '" + nomeDestinatario + "'";
cmd.CommandText = query;
OleDbDataAdapter adapter = new OleDbDataAdapter(cmd);
System.Data.DataTable tabellaDataTrasmissione = new System.Data.DataTable();
adapter.Fill(tabellaDataTrasmissione);

if (tabellaDataTrasmissione.Rows.Count == 0 || tabellaDataTrasmissione.Rows[0].IsNull("dDataTrasmissione"))
{
query = "UPDATE PRATICA_INTERVENTI SET cDesPersonale = '" + nomeDestinatario + "', dDataTrasmissione = GETDATE(), dOraInizio = NULL, dOraFine = NULL, bCancellazione = 0" +
" WHERE nCodIntervento = (SELECT TOP 1 nCodIntervento FROM PRATICA_INTERVENTI WHERE nCodPratica = " + nCodPratica.ToString() + " AND bCancellazione = 0 AND bIdentificativo = 0)";
}
else
{
DateTime dataTrasmissione;
dataTrasmissione = System.Convert.ToDateTime(tabellaDataTrasmissione.Rows[0]["dDataTrasmissione"]);
if (dataTrasmissione.ToString("dd/mm/yyyy").Equals("01/01/1900"))
{
query = "UPDATE PRATICA_INTERVENTI SET cDesPersonale = '" + nomeDestinatario + "', dDataTrasmissione = GETDATE(), dOraInizio = NULL, dOraFine = NULL, bCancellazione = 0" +
" WHERE nCodIntervento = (SELECT TOP 1 nCodIntervento FROM PRATICA_INTERVENTI WHERE nCodPratica = " + nCodPratica.ToString() + " AND bCancellazione = 0 AND bIdentificativo = 0)";
}
else
{
query = "UPDATE PRATICA_INTERVENTI SET cDesPersonale = '" + nomeDestinatario + "', dOraInizio = NULL, dOraFine = NULL, bCancellazione = 0" +
" WHERE nCodIntervento = (SELECT TOP 1 nCodIntervento FROM PRATICA_INTERVENTI WHERE nCodPratica = " + nCodPratica.ToString() + " AND bCancellazione = 0 AND bIdentificativo = 0)";
}
}
tabellaDataTrasmissione.Dispose();
tabellaDataTrasmissione = null;
}

cmd.CommandText = query;
cmd.ExecuteNonQuery();

transaction.Commit();
}
catch (Exception ex)
{
if (transaction != null)
transaction.Rollback();

throw new ApplicationException("Si è verificato un'errore durante l'aggiornamento dei dati sul database.\n\n" + ex.Message);
}
finally
{
if (cmd != null)
cmd.Dispose();

if (conn != null)
{
conn.Close();
conn.Dispose();
}
}
}


comunque questo codice, nonostante la qualità funziona.

...vado a mangiare va...

[^TiGeRShArK^]

ah..x assembly intendevi gli assembly del visual studio? :stordita:
pensavo che intendessi codice assembly vero e proprio :asd:
..in effetti mi pareva un pò strano..
col basic per usare codice macchina servivano le istruzioni peek e poke e si doveva fare un casino della madonna... col visual basic non ne ho idea ma non credo che sia tanto diverso :D
cmq tornando a noi..
mi sa che ti conviene eseguire il programma in debug in modo da vedere in quale riga di codice genera l'errore perchè altrimenti non ho la minima idea di cosa potrebbe andare a puttane :D

[0rph3n]

ah..x assembly intendevi gli assembly del visual studio? :stordita:
pensavo che intendessi codice assembly vero e proprio :asd:
..in effetti mi pareva un pò strano..
col basic per usare codice macchina servivano le istruzioni peek e poke e si doveva fare un casino della madonna... col visual basic non ne ho idea ma non credo che sia tanto diverso :D
:D
cmq tornando a noi..
mi sa che ti conviene eseguire il programma in debug in modo da vedere in quale riga di codice genera l'errore perchè altrimenti non ho la minima idea di cosa potrebbe andare a puttane :D
vedrò se riesco ad agganciare il progetto in vb6 al progetto in .NET in modo da farli debuggare assieme, altrimenti è la fine :sofico:

[0rph3n]

bon non era colpa ne del codice managed ne di quello unmanaged :D
colpa della configurazione...
...fatalità c'è un settaggio timeout...che immaginavo (eh certo immaginavo perchè di documentazione manco l'ombra) ponendo a 0 avrebbe avuto valore ∞ e invece no sarebbe stato troppo bello :mc:
se non mi fossi messo a guardare tutto il codice VB6 (non molto per fortuna) non ne sarei mai uscito :fagiano:

chiedo venia per il topo inutile