2 E-Mail gleichzeitig versenden

[Karstadt]

Hallo.

Ich muss folgene aufgabe erledigen.

Anwendung wird gestaret:
Der Benutzer schiebt eine Karte in Lesegerät.
Sind auf diese Karte bilder dann
Liest das Programm alle JPEG Bilder, verkleinet und speichert die bilder ab. (local). Anschließend werden alle Bilder gelöscht. Dann werden die bilder versendet. (so weit habe ich das geschaft)

NUN Wenn der Versandvorgang lange dauert und der Benutzer eine weiter Karte ins Laufwerk schiebt. soll es möglich sein (das der erster E-mail versand arbeitet) und die obengenanten schritte noch mal duchgegangen werden.

Ist das möglich?

Kurz. Währen E-mail Versand soll schon die zweite e-Mail vorbereitet sein.

[Bernhard Geyer]

Stichword: Threads. Verlagere Teile in Threads die unabhänig abgearbeitet werden können.

[Mavarik]

Klar eMail im Thread versenden!

Delphi-Quellcode:

 TEmailThread = class(TThread)
  private
    FSubject: string;
    FReplyTo: string;
    FHost: string;
    FFromAddress: string;
    FUserID: string;
    FLocalProgram : string;
    FToAddress: TStrings;
    FToBccAddress: TStrings;
    FBody: TStrings;
    FFromName: string;
    FAnhang: string;
    FContentType: string;
    procedure SetBody(const Value: TStrings);
    procedure SetToAddress(const Value: TStrings);
    procedure SetToBccAddress(const Value: TStrings);
    { Private declarations }
  protected
  public
    procedure Execute; override;
    constructor Create(CreateSuspended : Boolean; ThreadPriority: TThreadPriority);
    destructor Destroy;override;
    property Host : string read FHost write FHost;
    property UserID : string read FUserID write FUserID;
    property Body : TStrings read FBody write SetBody;
    property ToAddress : TStrings read FToAddress write SetToAddress;
    property ToBccAddress : TStrings read FToBccAddress write SetToBccAddress;
    property Subject : string read FSubject write FSubject;
    property FromAddress : string read FFromAddress write FFromAddress;
    property FromName : string read FFromName write FFromName;
    property ReplyTo : string read FReplyTo write FReplyTo;
    property Anhang : string read FAnhang write FAnhang;
    property LocalProgram: string read FLocalProgram write FLocalProgram;
    property ContentType:string write FContenttype;
 end;

implementation
 { Example of usage }
 {with TEmailThread.Create(True, tpHigher) do
  begin
    Host := 'smtp-server';
    UserID := 'skumar';
    ToAddress.Add('[e-mail]');
    Subject := 'Threaded Email';
    FromAddress := '[e-mail]';
    ReplyTo := '[e-mail]';
    Body.Add('This is a test email !!');
    Resume;
  end;}

{ TEmailThread }

Source findest Du auf matlus.com

Frank :coder:

[Mavarik]

OT:

Zitat:

Zitat von Bernhard Geyer

Stichword: Threads. Verlagere Teile in Threads die unabhänig abgearbeitet werden können.

Du schneller ich ausführlicher! :thumb:


Frank :coder:

[Bernhard Geyer]

Zitat:

Zitat von Mavarik

OT:

Zitat:

Zitat von Bernhard Geyer

Stichword: Threads. Verlagere Teile in Threads die unabhänig abgearbeitet werden können.

Du schneller ich ausführlicher! :thumb:

Ich würde aber auch die Zeitintensiven JPEG-Operationen in den Thread verlagern.