Ошибка работы с памятью

[Alex Cones]

В DLL:

 Procedure IntToStr2(I : Integer; Width : Integer; Var Res : PChar); StdCall; Export;
 Var
  S : String;
 Begin
  Str(I, S);
  If Width > 0 Then
   While Length(S) < Width Do
    S := INTFILLER + S;
  Res := PChar(S);
 End;

Procedure WriteLogB(Action : PChar; Res : Boolean); StdCall; Export;
 Var
  LocalTime : TSystemTime;
  PC1       : PChar;
  PC2       : PChar;
  PC3       : PChar;
  PC4       : PChar;
  PC5       : PChar;
  PC6       : PChar;
  PC7       : PChar;
  PCB       : PChar;
 Begin
  ZeroMemory(@LocalTime, SizeOf(LocalTime));
  GetLocalTime(LocalTime);
  IntToStr2(LocalTime.wDay         , LENGTH_DAY         , PC1);
  IntToStr2(LocalTime.wMonth       , LENGTH_MONTH       , PC2);
  IntToStr2(LocalTime.wYear        , LENGTH_YEAR        , PC3);
  IntToStr2(LocalTime.wHour        , LENGTH_HOUR        , PC4);
  IntToStr2(LocalTime.wMinute      , LENGTH_MINUTE      , PC5);
  IntToStr2(LocalTime.wSecond      , LENGTH_SECOND      , PC6);
  IntToStr2(LocalTime.wMilliseconds, LENGTH_MILLISECONDS, PC7);
  BoolToStr(Res, PCB);
  WriteLn(LOG_File, PC1 + DIVIDER_DAY     +
                    PC2 + DIVIDER_MONTH   +
                    PC3 + DIVIDER_EMPTY   +
                    PC4 + DIVIDER_HOUR    +
                    PC5 + DIVIDER_MINUTE  +
                    PC6 + DIVIDER_SECONDS +
                    PC7 + DIVIDER_EMPTY   +
                     MARK_ACTION + PChar(Action)  + DIVIDER_DOT + DIVIDER_EMPTY +
                     MARK_RESULT + PCB + DIVIDER_DOT);
 End;

В EXE :

 Procedure WriteLog(Action : PChar; Res : Boolean);                                            StdCall; External 'Gfur.dll' Name 'WriteLogB';

WriteLog('Let`s check it', TRUE);

Результат плох:

828.828.828 828:828:828.828 ACTION: Let`s check it. RESULT: True.

А раньше результат был правильным, когда я поступал так:
Function <FuncName>:PChar;
Сказали, что будут утечки, сделал так:
Procedure <FuncName>(Res : PChar);
(На примере IntToStr2 видно, где проходили границы прошлого варианта).

Как сделать рабочим?

[Пепел Феникса]

а FreeMem не сделать как я предлагал?
зачем все перестраивать-то?

[Alex Cones]

 Procedure WriteLogB(Action : PChar; Res : Boolean); StdCall; Export;
 Var
  LocalTime : TSystemTime;
  PC1       : PChar;
  PC2       : PChar;
  PC3       : PChar;
  PC4       : PChar;
  PC5       : PChar;
  PC6       : PChar;
  PC7       : PChar;
  PCB       : PChar;
 Begin
  ZeroMemory(@LocalTime, SizeOf(LocalTime));
  GetLocalTime(LocalTime);
  IntToStr2(LocalTime.wDay         , LENGTH_DAY         , PC1);
  ShowMe(PC1);
  IntToStr2(LocalTime.wMonth       , LENGTH_MONTH       , PC2);
  ShowMe(PC2);
  IntToStr2(LocalTime.wYear        , LENGTH_YEAR        , PC3);
  ShowMe(PC3);
  IntToStr2(LocalTime.wHour        , LENGTH_HOUR        , PC4);
  ShowMe(PC4);
  IntToStr2(LocalTime.wMinute      , LENGTH_MINUTE      , PC5);
  ShowMe(PC5);
  IntToStr2(LocalTime.wSecond      , LENGTH_SECOND      , PC6);
  ShowMe(PC6);
  IntToStr2(LocalTime.wMilliseconds, LENGTH_MILLISECONDS, PC7);
  ShowMe(PC7);
  BoolToStr(Res, PCB);
  WriteLn(LOG_File, PC1 + DIVIDER_DAY     +
                    PC2 + DIVIDER_MONTH   +
                    PC3 + DIVIDER_EMPTY   +
                    PC4 + DIVIDER_HOUR    +
                    PC5 + DIVIDER_MINUTE  +
                    PC6 + DIVIDER_SECONDS +
                    PC7 + DIVIDER_EMPTY   +
                     MARK_ACTION + PChar(Action)  + DIVIDER_DOT + DIVIDER_EMPTY +
                     MARK_RESULT + PCB + DIVIDER_DOT);
 End;

ShowMe показывает нормальные, а WriteLn записывает бред

[Alex Cones]

Ошибка локализована Причина была в том, что в WriteLn пришла контенкация PChar строк. А это - зло. Отдельно нормально, а вот с +-м идет бредятина. Внутренний вызов заменил на String и все нормально.

Спасибо Goodwin!

[GunSmoker]

Ох.

1. Всегда работайте со String, а приведение к PChar делайте в последний момент.

2. Если вы хотите вернуть строку из функции в DLL, то проще всего использовать WideString.