C Funktion, um zwei Strings zu verbinden in DLL

[Luckie]

Stimmt. Aber er will immer noch nicht:

Code:

EXPORT int addstr(char *str1, char *str2, char *buffer, int lenbuffer)
{   
   if(strlen(str1) + strlen(str2) > lenbuffer)
   {
      return strlen(str1) + strlen(str2);
   }
   else
   {
      strcpy(buffer, str1);   
      strcat(buffer, str2);
      return strlen(buffer);
   }
}

Ich meinte, er scheint es nicht zu mögen, dass ich nil übergebe anstatt einen gültigen Speicherbereich. Zu mindest scheint die AV daraufhinzuweisen:

Zitat:

Access violation at address 10001087 in module 'FirstDLL.dll'. Write of address 00000000.

Ächtz. Ich habe die falsche DLL genommen. Kompiliert hab eich die Debug Version und benutzt die Release Version. :wall:

Allerdings ist der Buffer jetzt leer. Und in ShowMessage sthet nur die Länge.

[Dax]

Geht es so?

Code:

EXPORT int addstr(char *str1, char *str2, char *buffer, int lenbuffer)
{   
   if(strlen(str1) + strlen(str2) >= lenbuffer)
   {
      return strlen(str1) + strlen(str2) + 1;
   }
   else
   {
      strcpy(buffer, str1);   
      strcat(buffer, str2);
      return strlen(buffer);
   }
}

[Luckie]

Nein auch nicht. :gruebel:

[Dax]

Delphi-Quellcode:

type
  TAdd = function(a, b: Integer): Integer; stdcall;
  TAddStr = function(str1, str2: PChar; Buffer: PChar; lenbuffer: Integer): Integer; stdcall;

Ich kann mich irren, aber müsste das nicht in beiden Fällen cdecl sein?

[Luckie]

Nein. Ich habe im es VS auf stdcall gestellt.

[Dax]

Oh, hab ich wohl überlesen :oops:

Aber:

Delphi-Quellcode:

len := AddStr(PChar(str1), PChar(str2), Buffer, sizeof(Buffer));
ShowMessage(string(Buffer) + '[' + IntToStr(len) + ']');

Warum fällt mir das jetzt erst auf :wall:

sizeof(Buffer) => 4

Und: warum Buffer als PChar? Machs doch als string und übergebe @Buffer[1] als Parameter.

[Luckie]

Autsch. Jetzt wo du es sagst. :wall: :wall: :wall: :wall: :wall: :wall: :wall: :wall: :wall:

[Dax]

Auf einer 128-Bit-Maschine hätts funktioniert :zwinker: