DLL und String's

[hibbert]

Hi,
ich habe folgende DLL geschrieben:

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:

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

[Bernhard Geyer]

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

[shmia]

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".

[arbu man]

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

[hibbert]

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

[Sprint]

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

[hibbert]

also so ??
Project1.exe

Delphi-Quellcode:

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

MyDLL.dll

Delphi-Quellcode:

uses
FastShareMem,
  SysUtils,
  Classes;

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

hibbert

[kiar]

hallo hippert,

trage mal das FAstShareMem in die .dpr ein.

ich glaube das meinte sprint.

raik

[mirage228]

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

[hibbert]

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