Read Error bei dll

[sharkx]

Hallo, ich bekomme bei der ausführung dieser Function einen Read Error.

Delphi-Quellcode:

var
  FPath: string;
  Source, SPath: string;
  Target, TPath: string;
  Release: string;
  FQF: string;
  IFQF: string;

type 
  TShellexecute = function(hWnd: HWND; Operation, FileName, Parameters, 
    Directory: PChar; ShowCmd: Integer): HINST; stdcall;


function WriteFQF( mWnd: hWnd; aWnd: hWnd; Data: PChar; Parms: PChar;
Show: Boolean; NoPause: Boolean ): Integer; export; stdcall;
var
  FileName: PAnsiChar;
  dump: TStringList;
  i: Integer;
  MyShellExecute: TShellexecute;
begin
  FileName := PChar(FQF);
  dump := TStringList.Create;
    with dump do
     begin
      dump.Add('1
0
' + Source + '
' + Target + '
' +  Release + '/
4096');
      for i := dump.Count -1 to StrToInt(IFQF) do
      begin
       if FileExists(FileName) = true then
        DeleteFile(PChar(FileName))
        else
          begin
          dump.SaveToFile(PChar(FileName));
          end;
     end;
      dump.Free;
      MyShellexecute(0, 'open', 'FlashFXP.exe', PChar(FPath), PChar('-c3 -tray' + ' ' + FQF), SW_NORMAL);
      Result := 3;
      end;
  end;
end;


exports
  WriteFQF;


begin
  FPath   := ParamStr(1);
  Source  := ParamStr(2);
  Spath   := ParamStr(3);
  Target  := ParamStr(4);
  TPath   := ParamStr(5);
  Release := ParamStr(6);
  FQF     := ParamStr(7);
  IFQF    := ParamStr(8);
end.

Woran liegt das bzw was ist falsch?

die dll wird von mIRc dynamisch geladen bzw angesprochen. mIRC möchte immer als Result nen Integer wert haben, laut Hilfe ..
The routine in the DLL being called must be of the form:
int __stdcall procname(HWND mWnd, HWND aWnd, char *data, char *parms, BOOL show, BOOL nopause)

Allerdings stürzt mIRC dann immer mit einem Read Error ab. Wäre super wenn wer rat weiß :))


merci :)

[sharkx]

The DLL can return an integer to indicate what it wants mIRC to do:
0 means that mIRC should /halt processing
1 means that mIRC should continue processing
2 means that it has filled the data variable with a command which it wants mIRC to perform, and has filled parms with the parameters to use, if any, when performing the command.
3 means that the DLL has filled the data variable with the result that $dll() as an identifier should return.


ich habs mit allen 4 als result getestet, nix :/



[Edit] Ich hab mal alles auskommentiert bis auf die StringListe, und trotzdem fliegt mIRC weg. Ich seh aber definitiv keinen fehler. Ich hoffe es kann mir wer helfen :/ [/Edit]

[sharkx]

Niemand ne Idee? Ich sitz da echt fest :/

[Christian Seehase]

Moin Sharkx,

und wo implementierst Du TShellExecute?
Oder wird die Funktion irgendwo dynamisch importiert?

[mr2]

wie wärs wenn Du ShellExecute aus der ShellAPI.pas verwendest?

Delphi-Quellcode:

uses
  ShellAPI;

...
var
//  MyShellExecute: TShellexecute;
begin
...
  ShellExecute(0, 'open', 'FlashFXP.exe', PChar(FPath), PChar('-c3 -tray' + ' ' + FQF), SW_NORMAL);
...

CU mr2

[sharkx]

Hallo,

Habe den fehler gefunden, nachdem ich etliche male die function im ersten Tread neu geschrieben habe.

Der fehler liegt darin das die variablen nicht übernommen werden.

Übernehmen tu ich sie eigentlich so ..

Delphi-Quellcode:

begin
  V       := pchar('0.01');
  FPath   := ParamStr(1);
  Source  := ParamStr(2);
  Spath   := ParamStr(3);
  Target  := ParamStr(4);
  TPath   := ParamStr(5);
  Release := ParamStr(6);
  FQF     := ParamStr(7);
  IFQF    := ParamStr(8);
end.

Aber mag irgendwie nich, wenn ich mi die Variablen mit ShowMessage dann schauen will, sind diese leer :/

[scp]

ParamStr(1) Eine DLL hat für gewöhnlich keine Parameter, evtl. schaust du dir mal
Parms: PChar; mit ShowMessage an, da sind doch bestimmt die Parameter drin.

[edit]
PS:

dump.Add('1
0
' + Source + '
' + Target + '
' + Release + '/
4096'); würde ich so schreiben:

Delphi-Quellcode:

dump.Add(#$31#$01#$30
       + #$01#$02#$7F + Source
       + #$01#$02#$7F + Target
       + #$01 +  Release
       + #$2F#$01 + '4096');

Das schützt davor, das die Sonderzeichen unfreiwillig konvertiert werden.

[/edit]

[sharkx]

Hallo,

Ich habe mir mal mit ShowMessage die Variablen angeschaut. Die sind leer :-/

scp: Was meinst du mit hat gewöhnlich keine Parameter?

[Luckie]

Man kann eien DLL nicht so mit Parametern "starten" wie eine Anwendung. Eine DLL braucht immer eine Host-Anwendung.

[sharkx]

Luckie, die hat sie ja ... mIRC.
Meine Functionen funktionieren auch wenn ich die Variablen in der dll gleich fest belege. Nur wenn ich sie von mIRC aus übergebe kommt nix an :/

Delphi-Quellcode:

function ShowMSG( mWnd: hWnd; aWnd: hWnd; Data: PChar; Parms: PChar;
Show: Boolean; NoPause: Boolean ): Integer; export; stdcall;
var
  i: Integer;
begin
    for i := 1 to ParamCount do
    begin
      if (ParamStr(i) = '-FPath') then
        FPath := PChar(ParamStr(i+1));
      if (ParamStr(i) = '-Source') then
        Source  := PChar(ParamStr(i+1));
      if (ParamStr(i) = '-SPath') then
        SPath := PChar(ParamStr(i+1));
      if (ParamStr(i) = '-Target') then
        Target := PChar(ParamStr(i+1));
      if (ParamStr(i) = '-TPath') then
        TPath := PChar(ParamStr(i+1));
      if (ParamStr(i) = '-Release') then
        Release := PChar(ParamStr(i+1));
      if (ParamStr(i) = '-FQF') then
        FQF := PChar(ParamStr(i+1));
      if (ParamStr(i) = '-IFQF') then
        IFQF := PChar(ParamStr(i+1));
    end;
 ShowMessage('FQF ' + ' ' + FQF + 'Source ' + Source + ' ' + 'SPath ' + SPath + ' ' + 'Target ' + Target + ' ' + 'TPath ' + TPath + ' ' + 'Release ' + Release + ' ' + 'IFQF ' + IFQF + ' ' + 'FPath ' + FPath);
 Result := 0;
end;

Übergeben wird es so.

//dll meine.dll dieFunction dieParameter