Invalid Class Typecast

[Andidreas]

Zitat von Union:

Hat zwar nichts driekt mit Deiner Frage zu tun, aber könntest Du den Source nicht aufräumen?

Durch Verwendung einer Liste für die Verwaltung Deiner Dateinamen und Memory Streams würde das um 80% schrumpfen und auf jeden Fall übersichtlicher werden. Und natürlich auch flexibler - Was geschieht denn momentan wenn Du ein Attachment 11 dazunimmst? Das SQL wird automatisch erweitert, aber Du müsstest dann neue Variablen einführen und an diversen Stellen Änderungen vornehmen.

Wie meinst Du das mit der Liste? Ich hab gestern z.B. sowas versucht:

Delphi-Quellcode:

   compName := 'ms' + IntToStr(i);
  (compName as TMemoryStream) := TMemoryStream.Create;

Hat aber nicht funktioniert...

Ein 11. Attachment ist nicht vorgesehen (und darf es nach meinen Vorgaben auch nie geben [wers glaubt...])...

[Union]

Z.b. so (ungeprüft):

Delphi-Quellcode:

type
  TAttachmentInfo = class
    Ms : TMemorystream;
    Fn : string;
  public
    destructor destroy; override;
  end;

{ TAttachmentInfo }

destructor TAttachmentInfo.destroy;
begin
  if Assigned(Ms) then
    Ms.Free;
  if fn <> '' then
    fn := emptystr;
  inherited;
end;

procedure TTmaintenance_testmailing_form.advGlowBtnClick(Sender: TObject);
var
 i : Integer;
 AttachInfo : TAttachmentInfo;
 AttachInfoList : TObjectList;
begin

   //Check Entries
   If (StringReplace(edt_mailproject.Text, ' ', '', [rfReplaceAll]) = EmptyStr) Or
      (StringReplace(edt_mailapplication.Text, ' ', '', [rfReplaceAll]) = EmptyStr) Or
      (StringReplace(edt_mailsubject.Text, ' ', '', [rfReplaceAll]) = EmptyStr) Or
      (StringReplace(edt_mailsenderadress.Text, ' ', '', [rfReplaceAll]) = EmptyStr) Or
      (StringReplace(edt_mailsendertext.Text, ' ', '', [rfReplaceAll]) = EmptyStr) Or
      (StringReplace(edt_mailrecipient.Text, ' ', '', [rfReplaceAll]) = EmptyStr) Then
   Begin
     fnDisplayMyActionBox('ERR', 'Error', 'Entries are not complete!', EmptyStr, EmptyStr, EmptyStr, True);
     Exit;
   End;

   //Check count of Attachments
   If lstbox_attachments.Count > 10 Then
   Begin
     fnDisplayMyActionBox('ERR', 'Error', 'More than 10 Attachments!', 'Only max. 10 Attachments allowed!', EmptyStr, EmptyStr, True);
     Exit;
   End;

   AttachInfoList := TObjectList.Create;
   Try
     //Load Attachments in Memory Streams
     For i := 0 To lstbox_attachments.Count -1 Do
     Begin
       AttachInfo := TAttachmentInfo.Create;
       AttachInfo.Ms := TMemoryStream.Create;
       try
         AttachInfo.Ms.LoadFromFile(lstbox_Attachments.Items.Strings[i]);
         AttachInfo.Fn := fnGetFileName(lstbox_Attachments.Items.Strings[i]);
         AttachInfoList.Add(AttachInfo);
       Except
         On E:Exception Do
         Begin
           fnDisplayMyActionBox('ERR', 'Error', 'Could not load Attachment into Memory Stream', lstbox_Attachments.Items.Strings[i], E.Message, EmptyStr, True);
         End;
       End;
     End;

     //Insert Test Record into MS SQL Table Mail
     Try
       With (MSSQL_Query1) Do
       Begin
         Active := False;
         SQL.Clear;
         SQL.Add(' Insert Into "' + ModuleUniDBSchema + '.Mail" ');
         SQL.Add(' ( ');
         SQL.Add(' Mail_Project, Mail_Application, Mail_Subject, Mail_SenderAdress, Mail_SenderText, ');
         SQL.Add(' Mail_Recipient, Mail_CC, Mail_Message, Mail_AttachmentCount, Mail_Stati ');

         For i := 0 To lstbox_Attachments.Count -1 Do
         Begin
           SQL.Add(' , Mail_AttachmentName' + IntToStr(i+1));
           SQL.Add(' , Mail_Attachment' + IntToStr(i+1));
         End;

         SQL.Add(' ) ');

         SQL.Add(' Values( ');
         SQL.Add(' :Mail_Project, :Mail_Application, :Mail_Subject, :Mail_SenderAdress, :Mail_SenderText, ');
         SQL.Add(' :Mail_Recipient, :Mail_CC, :Mail_Message, :Mail_AttachmentCount, :Mail_Stati ');

         For i := 0 To lstbox_Attachments.Count -1 Do
         Begin
           SQL.Add(' , :Mail_AttachmentName' + IntToStr(i+1));
           SQL.Add(' , :Mail_Attachment' + IntToStr(i+1));
         End;

         SQL.Add(' ) ');

         ParamByName('Mail_Project').AsString := edt_mailproject.Text;
         ParamByName('Mail_Application').AsString := edt_mailapplication.Text;
         ParamByName('Mail_Subject').AsString := edt_mailsubject.Text;
         ParamByName('Mail_SenderAdress').AsString := edt_mailsenderadress.Text;
         ParamByName('Mail_SenderText').AsString := edt_mailsendertext.Text;
         ParamByName('Mail_Recipient').AsString := edt_mailrecipient.Text;
         ParamByName('Mail_CC').AsString := edt_mailcc.Text;
         ParamByName('Mail_Message').AsString := mem_mailtext.Text;
         ParamByName('Mail_AttachmentCount').AsString := IntToStr(lstbox_attachments.Count);
         ParamByName('Mail_Stati').AsString := '10';

         For i := 0 To lstbox_Attachments.Count -1 Do
         Begin
           ParamByName('Mail_AttachmentName'+IntToStr(i+1)).AsString := TAttachmentInfo(AttachInfoList[i]).fn;
           ParamByName('Mail_Attachment'+IntToStr(i+1)).SetBlobData(TAttachmentInfo(AttachInfoList[i]).ms.Memory, TAttachmentInfo(AttachInfoList[i]).ms.Size);
         End;

         ExecSQL;
       End;
     Except
       On E:Exception Do
       Begin
         fnDisplayMyActionBox('ERR', 'MS SQL Error', 'Could not insert Record into Mail Table!', E.Message, EmptyStr, EmptyStr, True);
       End;
     End;
   Finally
     AttachInfoList.Free;
   End;
end;

[Andidreas]

An der folgenden Stelle bekomme ich eine Access Violation:
AttachInfoList.Add(AttachInfo); Access Violation in rtl150.bpl

Liegt das auch wieder an den Runtime Packages?

[Union]

Entweder das oder die Datei in der jeweiligen Listbox-Zeile existiert nicht.

[Andidreas]

Die Datei existiert...
Ich hab jetzt auch die das rtl Package bei den Runtime Packages angegeben...

Der Fehler kommt weiterhin...

[Andidreas]

SORRY...
Mein Fehler... Ich hab das Create der AttachInfoList vergessen

So wenn ich das ganze jetzt noch in ne DLL bekomm ohne den ursprünglichen "Invalid Class Typecast" Fehler, dann bin ich happy