String und TString

[horst]

hallo... ;)

ich möchte mehrere files per sendmail versenden.
in listbox1 steht der dateiname der zu versendenen files.
wie krieg ich einen pfad davor gesetzt. also sowas in der art:
Code:
extractfilepath(application.exename)+ 'Listbox1.items

krieg immer wieder die fehlermeldung "inkompatible typen string und tstring"
hier der ganze code

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject); 
var 
an:Tstringlist; 
begin 
  an:=Tstringlist.Create; 
  names:=Tstringlist.Create; 
  an.Add('[e-mail]'); 
  sendNewsLetter(an,listbox1.items,memo1.Lines,'[e-mail]','Test','mpnormal','text/html','mail.domain.com','','',25,0); 
end;

[scp]

Delphi-Quellcode:

  for i := 0 to (Listbox1.items.count-1) do
    Listbox1.items[i] := extractfilepath(application.exename) + Listbox1.items[i];

[Jens Schumann]

Hallo,
versuche es mal so:

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var
Pfad      : String;
Filename  : String;
iCnt : Integer;
begin
  Pfad:=ExtractFilePath(Application.Exename);
  Pfad:=IncludeTrailingBackSlash(Pfad);
  For iCnt:=0 to ListBox1.Items.Count-1 do
  begin
    Filename:=Pfad+ListBox1.Items[iCnt];
    sendNewsLetter  (Filename,memo1.Lines,'[e-mail]','Test','mpnormal','text/html','mail.domain.com','','',25,0);
  end;
end;

Den Parameter an kannst Du Dir dann sparen.

[horst]

vielen dank,

bekomme fehlermeldungen:

Code:

[Warnung] Unit1.pas(414): Symbol 'IncludeTrailingBackslash' ist plattformspezifisch
[Fehler] Unit1.pas(418): Inkompatible Typen: 'TStringList' und 'String'
[Fehler] Unit1.pas(418): Inkompatible Typen: 'TStrings' und 'String'
[Fehler] Unit1.pas(418): Inkompatible Typen: 'String' und 'Integer'

[CalganX]

Hi Horst,
du musst die Funktion "sendNewsletter" natürlich noch ein wenig anpassen. Denn so, wie ich das sehe, sind da einige Parameter nicht ganz korrekt.

Chris

[horst]

ich habe aber wieder die gleichen fehlermeldungen
Inkompatible Typen: 'TStringList' und 'String'
ich weiss nicht wie ich das anpassen muss, deshalb poste ich doch überhaupt...

[horst]

sendNewsLetter schaut so aus:

Delphi-Quellcode:

procedure sendNewsLetter(an:Tstringlist; att,Text:Tstrings;
vonMail,Betreff,Priority,ContentTyp,SMTPServer,SMTPUsername,SMTPPass:String;
SMTPPort,SmtpAuthType:integer);

var IdMsgSend:TidMessage; SMTP:TidSmtp; i:integer; s:string;
begin
  IdMsgSend:=TidMessage.Create(nil);
  SMTP:=TidSmtp.Create(nil);
  with IdMsgSend do
  begin 
    ContentType :=ContentTyp ;
    Body.Assign(Text);
    From.Text := vonMail;
    ReplyTo.EMailAddresses := vonMail; 
    Subject := Betreff;
    Priority := Priority;
    s:=''; 
    for i:=0 to an.Count-1 do
    begin
      s:=s+BccList.EMailAddresses+an.Strings[i]+';' 
    end;
    BccList.EMailAddresses:=s;
    ReceiptRecipient.Text:=vonMail; 
  end;

  if att.Count>=1 then
  begin
    for i:=0 to att.Count-1 do
    begin 
      TIdAttachment.Create(IdMsgSend.MessageParts, att.Strings[i] ); 
    end;
  end; 
  IdMsgSend.ContentType :=ContentTyp ; 

  case SmtpAuthType of
    0: SMTP.AuthenticationType := atNone; 
    1: SMTP.AuthenticationType := atLogin; 
  end; 
  SMTP.Username := SMTPUsername; 
  SMTP.Password := SMTPPass;

  SMTP.Host := SMTPServer; 
  SMTP.Port := SMTPPort; 

  SMTP.Connect;
  try 
    SMTP.Send(IdMsgSend);
  finally
    SMTP.Disconnect;
  end;
  IdMsgSend.free;
  SMTP.free;
end;

[CalganX]

Hi,
vergiss mal den Source von Jens und verwende den von scp. Den fügst du vor dem "sendNewsletter" ein und dann sollte alles funktionieren.

Chris

[horst]

jaaaaaa, das funktioniert...
irgendwie habe ich den source von scp gar nicht gesehen :oops:

danke an alle

[horst]

achso..eine frage hätte ich doch noch zu sendNewsLetter
oder anderer thread?
ich stelle sie trotzdem mal.
wenn die mails ankommen, will sich immer eine empfangsbestätigung versenden, wie kriege ich das raus?