DLL und PAnsiChar

[ByTheTime]

Hallo,
ich habe eine DLL, mit welcher ich E-Mails verschicken. Alle relevanten Daten der Mail werden in einem eigenem Record, bzw. Array übergeben. Außer dem Port und einem Boolean-Wert, sind alle anderen Daten vom Typ PChar. Da ich aber nun die DLL in eine Delphi 5 Anwendung einbinden muss, habe ich PChar in PAnsiChar geändert. Allerdings erhalte ich jetzt in meinem Test-Programm, was ich in XE2 entwickelt habe an dieser Stelle den Fehler "Ungültige Zeigeroperation":

Delphi-Quellcode:

if Trim(AMailInfo[0].AAttachments) <> EmptyStr then
      begin
        try
          IdAttachmentList := TStringList.Create;
          IdAttachmentList.CommaText := AMailInfo[0].AAttachments;

          for i := 0 to IdAttachmentList.Count - 1 do
          begin
            IdMessage.IsEncoded := True;

            IdAttachment := TIdAttachmentFile.Create(IdMessage.MessageParts,
              IdAttachmentList.Strings[i]);
            IdAttachment.FileName :=
              ExtractFileName(IdAttachmentList.Strings[i]);
            IdAttachment.ContentType := 'application/octet-stream';
            IdAttachment.OpenLoadStream;
            IdAttachment.CloseLoadStream;
          end;
        finally
          IdAttachmentList.Free;
        end;
      end;

Klammer ich diese Stelle raus, erhalte ich schließlich beim Senden eine Zugriffsverletzung. Mit PChar hat alles einwandfrei geklappt! Wo genau kann da der Fehler liegen? :gruebel:

Gruß

[Zacherl]

Der Fehler liegt vermutlich darin, dass die DLL Unicode Strings haben will. Du musst also unter Delphi 5 PWideChar verwenden und der Sicherheit halber würde ich das selbe bei deinem XE2 Testprogramm machen.

[Mavarik]

Hast Du sowohl in der DLL als auch im Delphi 5 bei den Proceduren stdcall angegeben?

Mavarik

[ByTheTime]

Oh, stimmt. :wall: An PWideChar hab ich ja garnicht gedacht! :lol: Kann es erst heute Abend mit Delphi 5 testen.

Ich habe die DLL selbst geschrieben, beide Programme laufen in Delphi, brauche ich da stdcall? Hat immer schön ohne geklappt.

[jaenicke]

Zitat:

Zitat von ByTheTime (Beitrag 1244135)

Ich habe die DLL selbst geschrieben, beide Programme laufen in Delphi, brauche ich da stdcall? Hat immer schön ohne geklappt.

Wenn die ausschließlich in Delphi verwendet werden, braucht man stdcall nicht. Es macht aber dennoch Sinn, falls man eine DLL doch mal mit einer anderen Sprache nutzen möchte. Denn sonst müsste man dann dafür alles umstellen...

[Mavarik]

Zitat:

Zitat von jaenicke (Beitrag 1244136)

Zitat:

Zitat von ByTheTime (Beitrag 1244135)

Ich habe die DLL selbst geschrieben, beide Programme laufen in Delphi, brauche ich da stdcall? Hat immer schön ohne geklappt.

Wenn die ausschließlich in Delphi verwendet werden, braucht man stdcall nicht. Es macht aber dennoch Sinn, falls man eine DLL doch mal mit einer anderen Sprache nutzen möchte. Denn sonst müsste man dann dafür alles umstellen...

Bist Du da sicher?

stdcall ist aber nicht Standard, wenn Du es weg lässt. Wenn Du es auf eine Seite angegeben hast musst du es auch auf beiden Seiten angeben, oder?

[DeddyH]

Klar, aber wenn man es auf beiden Seiten nicht angibt, verwenden auch beide dieselbe Aufrufkonvention ("pascal" IIRC).

[Mavarik]

Hat Pascal einen Vorteil gegenüber stdcall?

[DeddyH]

Ich wüsste keinen, hat cdecl denn einen?

[himitsu]

Bei all den Conventionen gibt es ein paar grundlegende Sachen, die sich unterscheiden.

- bei einigen Wenigen gibt z.B. der aufrufer den Stack wieder frei,
- aber bei den Meisten macht es der Aufgerufene

- dann können die Parameter von Links nach Rechts oder von Rechts nach Links übergeben werden
(also entweder wird zuerst der erste oder der letzte Parameter in der Deklaration übergeben)

- und dann knnen die Parameter ausschließlich auf dem Stack landen
- oder die ersten kommen direkt in Register

Alles hat irgendwo mal einen vorteil
> bei den Registern geht es oftmals schneller, voallem bei kleinen Funktionen
> beim Stack hat man die Register frei, um diese problemlos nutzen zu können, ohne erst die Parameter rauszukopieren

stdcall > nur auf'm Stack
pascal > erstmal in die Register
beide > von links nach rechts und der Aufgerufene räumt auf


Viele Programmiersprachen haben oftmals ihre Standard-Konvention, welche genommen wird, wenn nichts angegeben wurde, aber wer will, darf im Delphi auch gern pascal direkt angeben.


Und so weit dich das gesehn hab, ist seit Win64 alles egal, da es dort praktisch immer so ähnlich wie im Pascal gemacht wird, egal welche Programmiersprache.