Einzelnen Beitrag anzeigen

gluglu

Registriert seit: 10. Dez 2005
32 Beiträge
 
#6

Re: TStream nach TIdStream 'casten'

  Alt 5. Mai 2006, 17:50
Folgendes gefunden :

unter Uses muss IdObjs stehen (anstatt IdStream).

Dann mache ich folgendes :
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  f : TIdStream;
begin
  if IdPOP31.Connected then IdPOP31.Disconnect;
  IdPOP31.Host := '...............';
  IdPOP31.Port := 110;
  IdPOP31.Username := '...............';
  IdPOP31.Password := '......';
  IdPOP31.Connect;

  IdMessage1.Clear;
  IdPOP31.Retrieve(1, IdMessage1);
  f := TIdFileStream.Create('C:\Email.eml', fmCreate);
  IdMessage1.SaveToStream(f);

....
Aber wie schon gesagt. Umlaute werden in der .eml datei falsch dargestellt.

P.D. Benutze Indy10 und Delphi 2006 VCL.Net
  Mit Zitat antworten Zitat