file of char delphi7 geht nicht

[DeddyH]

Da haben sich jetzt Deine Antwort und mein Edit überschnitten

[lecomte]

Zitat von jbg:

Zitat:

ergibt aber in delphi nur laufzeitfehler.

Der da wäre?

Sorry - ich hab den Laufzeitfehler in allen Varianten ohnehin gegoogelt - ohne Ergebnis. Hier ist er :
Access violation ad address 0045393B in module 'eudorap.exe'. Write of address 00088A3C

[DeddyH]

Dann lass Dir doch zwischendurch mal Length(mess) und Length(st) ausgeben, ich möchte wetten, dass sie kürzer sind, als Du glaubst. Du versuchst somit hinter dem String zu operieren.

[Uwe Raabe]

Es gibt allerdings noch einen großen Unterschied zwischen Turbo Pascal und Delphi: Turbo Pascal verwendet sogenannte ShortStrings, denen man bei der Deklaration eine maximale Länge mitgibt, z.B. string[80] . Läßt man diese Längenangabe weg string , wird dort implizit 255 angenommen. Die Typangabe string in Delphi bedeutet aber einen null-terminierten String, dessen Länge durch den ersten #0 Char bestimmt wird. Damit entspricht das Ergebnis des ersten Copy-Befehls mit aller Wahrscheinlichkeit nicht den Erwartungen.

Sollte es tatsächlich daran liegen, wäre eine Änderung der Zeile
var st,mess:string;
in
var st,mess:string[255];
mal einen Versuch wert.

[lecomte]

Danke für Deinen Kommentar.

nein, mess ist 218 lang, wie geplant, und st ist 31 lang, wie geplant.

ich habe inzwischen dein programm laufen lassen (mit dem filestream).
Ergebnis: eine Riesenmenge Leerzeichen. Showmessage ist - geschätzte, weil nicht sichtbar machbare - 40 bildschirmseiten groß .

Summa summarum: kann es an Windows XP liegen?
Sollte ich mir einen Apple kaufen?
Soll ich meine Unix-Kenntnisse auffrischen?
Kennt jemand außer mir VMS?
UCSD?
Android lernen?
Oder einfach resignieren und PacMan spielen?

Jedenfalls danke für die Hilfe....

[lecomte]

Zitat:

in
var st,mess:string[255];
mal einen Versuch wert.

Das mit der Länge (bis zu 2 GB bei Delphi) war mir ohnehin klar. Danke für den Hinweis.

[Uwe Raabe]

Zitat von lecomte:

Kennt jemand außer mir VMS?
UCSD?

Aber sicher!

Du könntest aber auch mal die Datei als ZIP hier hochladen, damit wir mit denselben Karten spielen.

[lecomte]

Danke für das Angebot. Ich habe auch dran gedacht, die Datei hochzuladen. Es handelt sich aber um private mails, die ich natürlich nicht weitergeben will.
Andere Daten (als private) hab ich leider nicht.

Aber ich freue mich, Dein / Eure Hilfsangebote bekommen zu haben.... da fühl ich mich nicht mehr ganz so allein .... Und werd' vielleicht demnächst mit der Frage auftauchen, wieso meine pop3-versuche auch mit fehlern enden. Man wird sehen.

Danke jedenfalls!

[implementation]

Zitat von lecomte:

Soll ich meine Unix-Kenntnisse auffrischen?

Kann nie schaden

Dann fällt die Nutzung von GNU, BSD und Solaris auch einfacher

[jaenicke]

Zitat von lecomte:

wie lese ich aus der datei "inbox.toc" die ersten 322 zeichen heraus (die datei ist deutlich länger als 322) und übertrage die zeichen 122 bis 153 auf einen string?

Welche Zeichen willst du nun? Nur die 32 genannten oder die ersten 322? Die genannten Zeichen:

Delphi-Quellcode:

var
  FileContents: TFileStream;
  MailData: AnsiString;
begin
  FileContents := TFileStream.Create(ExtractFilePath(ParamStr(0)) + 'inbox.toc', fmOpenRead);
  try
    FileContents.Position := 122;
    SetLength(MailData, 32);
    FileContents.ReadBuffer(Pointer(MailData), 32);
    ShowMessage(string(MailData));
  finally
    FileContents.Free;
  end;