Typumwandlung string -> PAnsiChar

[Berni68]

Also dann probier ich es nochmal anderherum:

es gab mal eine Prozedur (stammt nicht von mir):

Delphi-Quellcode:

// uses MAPI
function SendEMail(Handle:THandle; Mail:TStrings):Cardinal;
type
  TAttachAccessArray= array [0..0] of TMapiFileDesc;
  PAttachAccessArray= ^TAttachAccessArray;
var
  MapiMessage: TMapiMessage;
  Receip: TMapiRecipDesc;
  Attachments: PAttachAccessArray;
  AttachCount: Integer;
  i1: integer;
  FileName: string;
  dwRet: Cardinal;
  MAPI_Session: Cardinal;
  WndList: Pointer;
begin
Result:= MAPI_E_FAILURE;
  dwRet:= MapiLogon(Handle, PAnsiChar(''), PAnsiChar(''), MAPI_LOGON_UI or MAPI_NEW_SESSION, 0, @MAPI_Session);

  if (dwRet<>SUCCESS_SUCCESS) then
    begin
      MessageBox(Handle, PChar('Error while trying to send email'), PChar('Error'), MB_ICONERROR or MB_OK);
    end
  else
    begin
      FillChar(MapiMessage, SizeOf(MapiMessage), #0);
      Attachments:= nil;
      FillChar(Receip, SizeOf(Receip), #0);

      if Mail.Values['to']<>'' then begin
        Receip.ulReserved:= 0;
        Receip.ulRecipClass:= MAPI_TO;
        Receip.lpszName:= StrNew(Mail.Values['to']);
        Receip.lpszAddress:= StrNew('SMTP:' + Mail.Values['to']);

        Receip.ulEIDSize:= 0;
        MapiMessage.nRecipCount:= 1;
        MapiMessage.lpRecips:= @Receip;
      end;

      AttachCount:=0;
 
      for i1:=0 to MaxInt do begin
        if Mail.Values['attachment' + IntToStr(i1)] = '' then break;
        Inc(AttachCount);
      end;
 
      if AttachCount>0 then begin
        GetMem(Attachments, SizeOf(TMapiFileDesc) * AttachCount);

        for i1:=0 to AttachCount-1 do begin
          FileName:= Mail.Values['attachment' + IntToStr(i1)];
          Attachments[i1].ulReserved:= 0;
          Attachments[i1].flFlags:= 0;
          Attachments[i1].nPosition:= ULONG($FFFFFFFF);
          Attachments[i1].lpszPathName:= StrNew(FileName);
          Attachments[i1].lpszFileName:= StrNew(ExtractFileName(FileName));
          Attachments[i1].lpFileType:= nil;
        end;
        MapiMessage.nFileCount := AttachCount;
        MapiMessage.lpFiles := @Attachments^;
      end;

      if Mail.Values['subject']<>'' then MapiMessage.lpszSubject:= StrNew(Mail.Values['subject']);
      if Mail.Values['body']<>'' then MapiMessage.lpszNoteText:= StrNew(Mail.Values['body']);

      WndList := DisableTaskWindows(0);
      try
        Result:= MapiSendMail(MAPI_Session, Handle, MapiMessage, MAPI_DIALOG, 0);
      finally
        EnableTaskWindows(WndList);
      end;

      for i1:=0 to AttachCount-1 do begin
        StrDispose(Attachments[i1].lpszPathName);
        StrDispose(Attachments[i1].lpszFileName);
      end;

      if Assigned(MapiMessage.lpszSubject) then StrDispose(MapiMessage.lpszSubject);
      if Assigned(MapiMessage.lpszNoteText) then StrDispose(MapiMessage.lpszNoteText);
      if Assigned(Receip.lpszAddress) then StrDispose(Receip.lpszAddress);
      if Assigned(Receip.lpszName) then StrDispose(Receip.lpszName);
      MapiLogOff(MAPI_Session, Handle, 0, 0);
    end;
end;

die man problemlos so nutzen konnte:

Delphi-Quellcode:

procedure TTestForm.Mail1Click(Sender: TObject);
var
  mail: TStringList;
begin
  mail:= TStringList.Create;
  try
      mail.values['to']:= '[e-mail]';
      mail.values['subject']:= 'test';
      mail.values['body']:= 'Text Text Text';
      mail.values['attachment0']:= 'C:\Anhang.txt';
    SendEMail(Self.Handle, mail);
  finally
    mail.Free;
  end;
end;

Das geht jetzt offensichtlich nicht mehr. PAnsiChar hin oder her ist mir eigentlich völlig egal.
Gibt es eine alternative Möglichkeit eine Mail zu versenden ohne die geheimnisvollen Konvertierungen von PAnsiChar offenbaren zu müssen?