Problem mit dll und pchar

[Nicolai1234]

Meine dll wird nur von meinem Prgramm sprich Delphi verwendet und es sind weniger als 255 Zeichen!
Also mit shortstring wäre das kein Problem? Dann kann ich in der dll schreiben:

Delphi-Quellcode:

MeinShortString := shortstring(MeinString);

und in meinem Programm:

Delphi-Quellcode:

MeinString := string(MeinShortString);

So kann ich es doch machen oder?

[neolithos]

In der Dll:

Delphi-Quellcode:

function GetDataName(pStr : PChar; iStrLen : Integer) : Integer;
var sDataName : String;
begin
  sDataName := 'Hallo Welt!'; // Irgentein Text

  Result := Min(Length(sDataName), iStrLen - 1); // Passt die Zeichenkette in den Speicher ?
// wenn nicht kopiere was geht, sonst kopiere Text
// + setzen des Rückgabewertes der tatsächlich kopierten Zeichen
  StrLCopy(pStr, PChar(sDataName), Result); // Sicheres kopieren in den Buffer
end;

In Prog z.B.:

Delphi-Quellcode:

  SetLength(sStr, 1024); // Erstelle Buffer für 1024 Zeichen
  SetLength(sStr, 
     GetDataName(
       PChar(sStr), // Übergib Buffer
       1024) // Sage wieviel Byte der Buffer hat
   ); // Lösche alle Überflüssigen Bytes, die Hintendranhängen

Buffer = Dynamischer Speicher

[neolithos]

Zitat:

Zitat von Nicolai1605

Meine dll wird nur von meinem Prgramm sprich Delphi verwendet und es sind weniger als 255 Zeichen!
Also mit shortstring wäre das kein Problem? Dann kann ich in der dll schreiben:

Delphi-Quellcode:

MeinShortString := shortstring(MeinString);

und in meinem Programm:

Delphi-Quellcode:

MeinString := string(MeinShortString);

So kann ich es doch machen oder?

NEIN!

In der Dll:

Delphi-Quellcode:

MeinShortString := MeinString; // Achtung alles was mehr als 255 Zeichen sind, wird abgeschnitten

Deinen Prog.

Delphi-Quellcode:

MeinString := MeinShortString;

[Nicolai1234]

Also einfach einander zuweisen. Habe ich verstanden!!!
Und diesen Teil muss ich gar nicht weiter verwenden.

Zitat:

Zitat von neolithos

In der Dll:

Delphi-Quellcode:

function GetDataName(pStr : PChar; iStrLen : Integer) : Integer;
var sDataName : String;
begin
  sDataName := 'Hallo Welt!'; // Irgentein Text

  Result := Min(Length(sDataName), iStrLen - 1); // Passt die Zeichenkette in den Speicher ?
// wenn nicht kopiere was geht, sonst kopiere Text
// + setzen des Rückgabewertes der tatsächlich kopierten Zeichen
  StrLCopy(pStr, PChar(sDataName), Result); // Sicheres kopieren in den Buffer
end;

In Prog z.B.:

Delphi-Quellcode:

  SetLength(sStr, 1024); // Erstelle Buffer für 1024 Zeichen
  SetLength(sStr, 
     GetDataName(
       PChar(sStr), // Übergib Buffer
       1024) // Sage wieviel Byte der Buffer hat
   ); // Lösche alle Überflüssigen Bytes, die Hintendranhängen

Buffer = Dynamischer Speicher

[neolithos]

Das kompliziertere Bsp gilt für Zeichenketten die mehr als 255 Zeichen enthalten. Hat also auch seine Berechtigung.

Du musst entscheiden was du machen möchtest.

[Nicolai1234]

Ic habe mich jetzt für shortstring entschieden!
Jetzt habe ich in der dll folgende function:

Delphi-Quellcode:

function rueckgabe(herkunft:shortstring):shortstring;

In der letzten Zeile der function steht:

Delphi-Quellcode:

result := ergebnis; //ergebnis ist ein string (bestehend aus 5 Zeichen)

An dieser Zeile entsteht ein fehler. Warum?

[neolithos]

Welcher Fehler?

[Nicolai1234]

Folgende Fehlermeldung tritt dann bei mir auch:

Zitat:

Zitat von Die Fehlermeldung

Zugriffsverletzung bei Adresse 003248C2 in Modul 'MeineDLL.dll'. Schreiben von Adresse 00000002.

[neolithos]

Bei mir gibt es keine Zugriffsverletzung:


Prog:

Delphi-Quellcode:

function Hallo(tst : ShortString) : ShortString; 
  external 'Project2.dll';

procedure TForm1.Button3Click(Sender: TObject);
begin
  ShowMessage(Hallo('Hallo'));
end;

In der Dll:

Delphi-Quellcode:

function Hallo(tst : ShortString) : ShortString; export;
begin
  Result := tst + ' Welt';
end;

exports
  Hallo;

[Nicolai1234]

du verwendest ja uch keinen string! Ich habe ja in der dll einen string, den ich dann zu einem shortstring mache und dabei tritt der Fehler auf!