EInvalidPointer in dll

[DelphiFreund]

Hi Leute,
Ich bekomme einen EInvalidPointer in meiner dll-Datei, ich habe den Quelltext testweise direkt in der Exe compiliert, und siehe da, der Fehler tritt nicht auf, wirklich nur, wenn ich den GLEICHEN Quelltext in meiner dll benutzte, ich verstehe einfach nicht warum und habe jede Zeile nochmal unter die Lupe genommen, ich finde aber keinen Fehler :wall:

Nun lautet meine Frage, wieso taucht ein Fehler in einer dll auf, aber im Programm selber nicht, und am Besten noch, warum :gruebel:


Vielen Dank für jede Antwort

Gruß DelphiFreund

[Bernhard Geyer]

Moment, ich such nochmal schnell die Glaskugel... :gruebel:

Also entweder du postest etwas Code oder du versuchst selbst den Fehler per Debugging in der DLL zu finden (DLL's kann man auch debuggen, indem man die entsprechende Exe welche die DLL läd als Host-Anwendung angibt.

[DelphiFreund]

Etwas wichtiges hab ich noch vergessen, der Fehler tritt erst auf, wenn ich die Funktion in der dll verlasse.

Mein Code ist noch etwas chaotisch, er ist erst in der Testphase und noch sehr hardcoded und ein wenig "um die Ecke" programmiert, aber wenn es hilft:

Delphi-Quellcode:

type
  mp3TAG = packed record
    PRIV: AnsiString;    
    TALB: AnsiString;     // noch nicht fertig
    TIT2: AnsiString;     // noch nicht fertig
    TPE1: AnsiString;     // noch nicht fertig
    TRCK: AnsiString;     // noch nicht fertig
    Version: ShortString;
  end;


procedure ReadMP3Tagv23(FilePath: AnsiString; var TAGv2: mp3TAG); stdcall;
const
  CheckTAG = 'ID3';
var
  temp: Byte;
  Stemp: array[0..2] of Char;
  version: array[0..1] of Byte;
  ID: array[0..3] of Char;
  flags: array[0..7] of Boolean;    // [1] = Extended Header
  Size: Integer;
  temp4Byte: array[0..3] of Byte;
  tempA: AnsiString;
begin
  FreeAndNil(TAGv2);

  Stream:= TFileStream.Create(FilePath, fmOpenRead, fmShareDenyWrite);

  Stream.Position:= $0;
  Stream.ReadBuffer(Stemp, 3);
  TAGv2.Version:= Stemp;
  if not (Stemp = CheckTag) then begin
    raise ENoTAG.Create(Stemp);
    FreeAndNil(Stream);
    Exit;
  end;
  Stream.ReadBuffer(version, 2);
  TAGv2.Version:= TAGv2.Version + 'v2.' + IntToStr(version[0]) + '.' +
    IntToStr(version[1]);
  if not (version[0] = 3) then begin
    FreeAndNil(Stream);
    Exit;
  end;
  Stream.ReadBuffer(temp, 1);
  SplitByte(temp, flags);
  if flags[0] then Exit;
  if flags[2] then Exit;
  Stream.ReadBuffer(temp4Byte, 4);
  Size:= MakeInteger(temp4Byte);
  if flags[1] then ReadExtendedHeader;
  Stream.ReadBuffer(ID, 4);
  if ID = 'TIT2' then begin
    TIT2(tempA);
    TAGv2.TIT2:= tempA;
  end;
end;

Außerdem weiss ich wie man dll's debuggt, das half mir aber auch nicht.

[Bernhard Geyer]

Zitat:

Zitat von DelphiFreund

Etwas wichtiges hab ich noch vergessen, der Fehler tritt erst auf, wenn ich die Funktion in der dll verlasse.

Hast Du auch bei der Exe die gleiche Aufrufkonvention (stdcall) angegeben?

[DelphiFreund]

Meines wissen nach ja:

Delphi-Quellcode:

procedure ReadMP3Tagv23(FilePath: AnsiString; var TAGv2: mp3TAG); stdcall;
external 'E:\Programme\Borland\Delphi7\Projects\Aktuelle Projekte\dll mp3TAG\mp3TAGs.dll';

Wenn irgendetwas beim Quelltext unklar ist, sagt Bescheid.

[DelphiFreund]

Der Fehler kommt auch nicht durch ein fehlendes FreeAndNil(Stream) o.ä. ich hab viele Möglichkeiten probiert, habs nur gerade vergessen.

//Edit1: Rechtschreibfehler korrigiert

[Muetze1]

Moin!

Ist die Unit ShareMem eingebunden als aller erste Unit im Projekt und in der DLL? So wie es der Kommentar will den Borland dir in die DLL setzt?

MfG
Muetze1

[DelphiFreund]

Soweit ich weiss muss man das doch nur bei String und nicht bei AnsiString, aber ich probier es trotzdem mal aus.

[Muetze1]

Moin!

Dann werde ich dir mal den Tipp geben, das bei den Standardeinstellungen der String = AnsiString ist, ausser du stellst in den Konfiguration den Typ String wieder auf den alten Pascal Typ (nun ShortString) um...

MfG
Muetze1

[DelphiFreund]

achso, ok, danke, jetzt geht's, dann such ich mir nen anderen string typ :)

[DelphiFreund]

Wie stellt man einen Thread nochmal auf beantwortet? Das ändert sich ja scheinbar dauernt

[Binärbaum]

Zitat:

Zitat von DelphiFreund

Wie stellt man einen Thread nochmal auf beantwortet? Das ändert sich ja scheinbar dauernt

Indem du einfach den ersten Beitrag editierst und den Titel in "[beantwortet] EInvalidPointer in dll" änderst.

MfG
Binärbaum

[Capa]

Hätte da auch mal eine frage zum Thema EInvalidPointer und DLL Dateien
habe folgenden Code

DLL:

Delphi-Quellcode:

library Drucker;


uses
  ShareMem,
  SysUtils,
  Classes,
  Printers,
  Windows,
  Messages,
  WinSpool;

{$R *.res}

// *******************************************************
// ************* GetPrinterStrFromIndex ******************
// *******************************************************
function GetPrinterStrFromIndex(index : integer) : string; stdcall;
var
  pri : integer;
  hDeviceMode : THandle;
  Device,Driver,Port : array[0..255] of char;
  s,ResStr : array[0..255] of char;
begin
  pri:=Printer.PrinterIndex;
  Printer.PrinterIndex:=index;
  Printer.GetPrinter(Device,Driver,Port,hDeviceMode);
  // Arbeitet nicht richtig, deswegen korrekten String aus WIN.INI abfragen
  GetProfileString('Devices',Device,'',ResStr,255);
  StrCopy (s, Device);
  StrCat (s, ',');
  StrCat (s, ResStr);
  Result:=string(s);
  Printer.PrinterIndex:=pri;
end;
// *******************************************************
// ************* GetPrinterStrFromIndex ******************
// *******************************************************

// *******************************************************
// **************** Drucker löschen **********************
// *******************************************************
function Druckerloeschen(drucker: string):Boolean; stdcall;
var
hPrinter  : Cardinal;
PrinterDef: PRINTER_DEFAULTS;
pPrinterName: PAnsichar;
begin
  pPrinterName := PChar(drucker);
  Result := FALSE;

   FillChar(PrinterDef, sizeof(PrinterDef), #0);
   PrinterDef.DesiredAccess := PRINTER_ALL_ACCESS;

   if OpenPrinter(pPrinterName, hPrinter, @PrinterDef) then
   begin
    if DeletePrinter(hPrinter) then Result := TRUE;
    ClosePrinter(hPrinter);
   end;
end;

function Druckerdelwahl(druckernr: integer):Boolean; stdcall;
begin
  Druckerloeschen(GetPrinterStrFromIndex(druckernr));
  Result := True;
end;
// *******************************************************
// **************** Drucker löschen **********************
// *******************************************************

// *******************************************************
// **************** Testseite drucken ********************
// *******************************************************
function Drucktest():Boolean; stdcall;
begin
  Printer.BeginDoc;
  Printer.Canvas.Font.Name := 'Courier new';
  Printer.Canvas.Font.Size := 20;
  Printer.Canvas.TextOut(20,100,'Testseite');
  Printer.Canvas.TextOut(20,250,'Testseite');
  Printer.Canvas.TextOut(20,400,'Testseite');
  Printer.EndDoc;
  result:=true;
end;
// *******************************************************
// **************** Testseite drucken ********************
// *******************************************************

// *******************************************************
// **************** Drucker setzen ***********************
// *******************************************************
function Druckersetzen(drucker: string):Boolean; stdcall;
  var ResStr : array[0..255] of char;
begin
  StrPCopy(ResStr,drucker);
  WriteProfileString ('windows', 'device', ResStr);
  StrCopy (ResStr, 'windows');
  SendMessage (HWND_BROADCAST, WM_WININICHANGE, 0, LongInt(@ResStr));
  Result := True;
end;

function Druckersetwahl(druckernr: integer):Boolean; stdcall;
begin
  Druckersetzen(GetPrinterStrFromIndex(druckernr));
  Result := True;
end;
// *******************************************************
// **************** Drucker setzen ***********************
// *******************************************************

// *******************************************************
// **************** Drucker auslesen *********************
// *******************************************************
function Druckerauslesen():Pchar; stdcall;
  var printerlist: tstringlist;
          ResStr : array[0..255] of char;
        mainprint: PChar;
begin
  GetProfileString('Windows','device','',ResStr,255);

  printerlist := TStringlist.Create;
  printerlist.AddStrings(printer.printers);
  mainprint := PChar(StrPas(ResStr));
  printerlist.Add('');
  printerlist.Add(Copy(mainprint,0,pos(',',mainprint)-1));

  result:=printerlist.GetText;
  printerlist.free;
end;
// *******************************************************
// **************** Drucker auslesen *********************
// *******************************************************

exports
  Druckerdelwahl,
  Druckersetwahl,
  Druckerauslesen,
  Drucktest;

begin
end.

Programm:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

 function Druckerauslesen():String; stdcall; external 'drucker.dll';

implementation


{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(StrPas(Druckerauslesen));
end;

end.

Sobald ich nun die ShowMessage ausgeben lasse bekomm ich NACH der korrekt angezeigten ShowMessage einen EInvalidPointer Fehler.
Kann mir da vielleicht einer weiter helfen is das erstemal das ich mit dlls arbeiten will/muss
Wenn ich Drucktest(); versuche bekomme ich keinen Fehler angezeigt.

EDIT: Hab mal den kompletten DLL-Source gepostet falls sich der fehler woanderst versteckt

EDIT: Wenn ich Sharemem auch bei dem Programm an erster stelle einfüge bekomm ich den Fehler beim beenden der Datei und nicht mehr nach dem ShowMessage;

EDIT: Ein Abändern von "function Druckerauslesen():ShortString; stdcall;" auf "function Druckerauslesen():PChar; stdcall;" hat leider auch
keinen erfolg gebracht immernoch der selbe fehler.

EDIT: Kompletter Source updated auf aktuellen stand!

[Blup]

Die Stringlist "Printerlist" wird nicht freigegeben.

Warum snd nicht alle exports stdcall?

[Capa]

es sind doch alle exports stdcall

so und ich habs nun auch mit FreeAndNil(printerlist); bzw mit printerlist.free; versucht aber am ende bekomm ich immernoch den fehler.

Edit: wenn ich das Programm ohne delphi starte dann bekomm ich vo windows nur dieses report an windows fenster aber keine invalid Pointer fehlermeldung mehr.

So hab den Source mal aktualisiert bekomme trotz des rausnehmens vom string immernoch die fehlermeldung beim beenden.

Aktuelle Funktion:

Delphi-Quellcode:

function Druckerauslesen():Pchar; stdcall;
  var printerlist: tstringlist;
          ResStr : array[0..255] of char;
        mainprint: PChar;
begin
  GetProfileString('Windows','device','',ResStr,255);

  printerlist := TStringlist.Create;
  printerlist.AddStrings(printer.printers);
  mainprint := PChar(StrPas(ResStr));
  printerlist.Add('');
  printerlist.Add(Copy(mainprint,0,pos(',',mainprint)-1));

  result:=printerlist.GetText;
  printerlist.free;
end;

und Aufrufen tue ich das mit :

Delphi-Quellcode:

  ShowMessage(StrPas(Druckerauslesen));

[Capa]

So das Problem lag bei Sharemem habs entfernt und nun gehts ohne probleme.
Hab das ganze mit freundlicher Unterstützung von deccer alias barf00s herausgefunden.

[Blup]

Zitat:

Zitat von Capa

es sind doch alle exports stdcall

Gut das du den Quelltext in deinem Beitrag korrigiert hast.

Sharemem macht keine Probleme, wenn man es richtig einsetzt.
Was du tatsächlich geändert hast wissen wir nicht.
Wenn deine Funktion Druckerauslesen immer noch einen PChar zurückgibt, der auf einen nur lokal innerhalb der Funktion gültigen String verweist, dürften allerdings Fehler auftreten...

[Capa]

Ich habe NUR Sharemem aus den uses des Programms entfern und kompiliert und es lief ohne probleme.
und zum thema exports alle die unten bei export standen hatten von anfang an stdcall.
Und ich habe mittlerweile alle strings in der dll entfernt.(nachdem ich den sharemem vorfall behoben hatte)