mapiSendMail + Delphi 2010

[Jörg Richmann]

Hallo....

ich bekomme mit dem folgenden Code - welcher unter D5 läuft - spätestens beim 2 oder 3 Aufruf einen Absturz ohne weitere Felhlermeldung (WIN 7 64 BIT). Der erste Aufruf klappt i.d.R.

Hat jemand eine Idee ?

Vielen Dank in voraus

procedure TMainForm.Button3Click(Sender: TObject);
var msg: TMapiMessage;
liFlags : Longint;
w: string;
begin
w:='Hallo 123456789';
FillChar( msg, sizeOf( msg ), 0 );
with msg do begin
lpszSubject:=PAnsiChar(Ansistring(w));
liFlags := MAPI_DIALOG; // fürs Preview
liFlags := liFlags or MAPI_LOGON_UI;
mapiSendMail(0, application.Handle, msg, liFlags, 0 );
end;
end;

[tinof]

Hat jemand eine Idee ?

Ja, aber ungetestet:

1. das WITH 'rausnehmen, das verwirrt mehr als es nützt (auch den Compiler)

2. die Typumwandlung lpszSubject:=PAnsiChar(Ansistring(w));
über StrPCopy versuchen

3. w gleich als Ansistring deklarieren (String ist in D2010 ein Double- Byte- String)

Zusatz:
Schwer ist es zu werden ein Wide-String- Versteher -
Ich hab's bis heute nicht richtig geschafft, aber hier ist ein guter Einstieg:

http://edn.embarcadero.com/article/38498 und

http://edn.embarcadero.com/article/38693

Viel Erfolg!
Tino