Hi,
ich habe folgende DLL geschrieben:

markieren

Delphi-Quellcode:

function bbc(Text:string):string;stdcall;
begin
text:=pchar('[b]'+text+'[/b]');
result:=text;
end;

exports
  bbc;

nun rufe ich diese DLL folgendermaßen auf:

markieren

Delphi-Quellcode:

function bbc(Text: string): string; external 'mydll.dll';
{...}
showmessage(bbc('hallo'));

Nun erhalte ich diese Fehlermeldung:

Zitat von Benachrichtigung über Debugger-Problem:

In Projekt E:\Delphi7\Bin\DLL\dll test\Project1.exe trat ein Problem mit folgender Meldung auf: 'Zugriffsverletzung bei 0x77f51769: Schreiben von Adresse 0x00030fc8'. Prozess angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK
---------------------------

Jetzt kann ich das Prog nur noch über [strg]+[F2] zurück setzen...

wie übergebe ich also ohne Fehlermeldung einen String an eine DLL und wieder zurück ??

thx hibbert

Entweder mit PChar arbeiten oder den Memory-Manager einbinden (siehe Kommentar bei einem neuen Delphi-DLL-Projekt).

Zitat von Bernhard Geyer:

Entweder mit PChar arbeiten oder den Memory-Manager einbinden (siehe Kommentar bei einem neuen Delphi-DLL-Projekt).

Oder FastShareMem verwenden.
http://codecentral.borland.com/cc/cc...sting?id=21190
Wenn man sieht, wie wenig Code FastShareMem braucht, ist das fast schon ein "Muss".

Oben in der DLL steht ein kommentar lies ihn dir mal durch!

Hi,
also FastShareMem habe ich in der .dll und in meinem Project eingebunden.

Starte ich mein Prog über Delphi so erhalte ich immer die gleiche Fehlermeldung:

Zitat:

---------------------------
Benachrichtigung über Debugger-Problem
---------------------------
In Projekt E:\Delphi7\Bin\DLL\dll test\Project1.exe trat ein Problem mit folgender Meldung auf: 'Zugriffsverletzung bei 0x77f51771: Schreiben von Adresse 0x00030ffc'. Prozess angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK
---------------------------

Doch davor wird mir in meinem Programm eine leere nachricht angezeigt (wie bei showmessage('');). Danach kommt noch 5 mal die Fehlermeldung und ich muss das Prog über [Strg]+[F2] beenden

was habe ich falsch gemacht ?

thx hibbert

FastShareMem muss in in der DLL als erste Unit unter Uses stehen und in deiner EXE (Projekt Datei) auch.

also so ??
Project1.exe

markieren

Delphi-Quellcode:

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

MyDLL.dll

markieren

Delphi-Quellcode:

uses
FastShareMem,
  SysUtils,
  Classes;

Wenn das so gemeint war, dann hat das leider auch nichts gebracht

hibbert

hallo hippert,

trage mal das FAstShareMem in die .dpr ein.

ich glaube das meinte sprint.

raik

Hi,

in der DLL hast Du die Funktion als stdcall deklariert.

In Deinem Hauptprogramm steht aber das:
function bbc(Text: string): string; external 'mydll.dll'; Da fehlt das stdcall.

mfG
mirage228

Zitat von mirage228:

in der DLL hast Du die Funktion als stdcall deklariert.

mist das hätte mir auch auffallen können

Zitat von kiar:

trage mal das FAstShareMem in die .dpr ein.

mmhh ich glaube das war auch gemeint

jo jetzt funzt es, alles ohne Fehlermeldung

danke an alle

thx hibbert