Access violation at adress

[Volkogriz]

Доброе время суток!
У меня вот такая проблемам!
Код:

function DosToWin(St: string): string;  stdcall;
var
  Ch: PChar;
begin
  Ch := StrAlloc(Length(St) + 1);
  OemToAnsi(PChar(St), Ch);
  Result := Ch;
  StrDispose(Ch)
end;   exports DosToWin;

Function WinToDos(const S: string):string;  stdcall;
var
  NewStr: string;
begin
  SetLength(NewStr, Length(S));
  Windows.CharToOem(PChar(S), PChar(NewStr));
  result:=NewStr;
end;
exports WinToDos;

из программы:

Function WinToDos(const S: string):string;  stdcall;
external 'DBDLL\DBDLL.dll' name 'WinToDos';

procedure TForm1.Button1Click(Sender: TObject);
var
re:integer;
ge:TStringList;
begin
ge:=TStringList.Create;
   for re:=1 to RichEdit1.Lines.Count -1 do
  begin
ge.Add(WinToDos(RichEdit1.Lines.Strings[re]));
ge.SaveToFile('1234.txt');
end;
end;

текст в RichEdit:

Смета
Дата:
15.02.2013
Заказ №1
Заказчик: Д.Н.Куклин 
Телефон: 
89853615250 
89266765889 

Расчет стоимости услуг электрика
______________________________________________________
Вид работ                                                      Цена на работы                 Количество                 Сумма
______________________________________________________
 
Высверливание отверстий под установочную
коробку в гипсокартоне, гипсолите.                         200 шт.                          6                          1200
_____________________________________________________________________________________
Установка механизма розетки, выключателя,
декоративной накладки.                                           250 шт.                         6                          1500
_____________________________________________________________________________________
Установка розетки накладной.                                 400 шт.                         2                          800
_____________________________________________________________________________________
Установка звонка электрического
с подключением.                                                      400 шт.                         1                          400
_____________________________________________________________________________________
Замена электроблока тройного (санузел).               1200 шт.                         1                         1200
_____________________________________________________________________________________
Прокладка проводки открытой на скобах
на гипсолитовых стенах.                                           100 ПМ                         30                         3000
_____________________________________________________________________________________
Штробление стен кирпичных под провод.                   220 ПМ                         50                         11000
_____________________________________________________________________________________
Установка автомата электрического.                        450 ШТ                         16                         7200

Вот до сюда ок:

Дата:
15.02.2013
Заказ №1
Заказчик: Д.Н.Куклин
Телефон:
89853615250
89266765889

Далее ошибка и всё) Access violation at adress
Помогите пожалуйста !
За рание благодарен!
С уважением,
Volkogriz!

[Stilet]

sharemem в ДЛЛке присутствует в списке модулей?
Кстати зачем простую функцию конвертирования оборачивать в еще одну? Далее подразумевается какая-то особая работа со сконвертированной строкой внутри ДЛЛ?

[Volkogriz]

sharemem присутствует и в дпр программы присутствует.
Я и местами модули менял в длл ке, как то мне это помогло)
не пойму пока в чём дело, треть сохраняет и процесс стопед)))

[Человек_Борща]

Использовать TEncoding?

[Volkogriz]

У меня этого класса нет я на 7ой Delphi а TEncoding вроде с 2009 версии появился или нет?

[Человек_Борща]

угу. WideString вместо String и ShareMem убрать. И в exports имена функций на экспорт можно через запятую указывать.

[Volkogriz]

Теперь
))) out of memory

[Stilet]

Чесслово я бы в ДЛЛ такое не пихал если бы не веские обстоятльства...

[Volkogriz]

))Я бы тоже)) но попросили именно так чтоб именно эти функции вызывались из длл-ки !
Это не мой каприз)))

[Serge_Bliznykov]

но попросили именно так чтоб именно эти функции вызывались из длл-ки !

а зачем?!!! Это именно "каприз"!! (и неважно, чей..)

попробуйте такую функцию вместо вашей WinToDos

function StrToOem(const AnsiStr: AnsiString): AnsiString;
begin
  SetLength(Result, Length(AnsiStr));
  if Length(Result) > 0 then
    CharToOemBuff(PChar(AnsiStr), PChar(Result), Length(Result));
end;

это раз.

во-вторых, возьмите себе за правило - если Вы создали объект (я про ge:=TStringList.Create,
так будьте любезны и удалить его, освободив занимаемую память!
Либо через ge.Free; либо через FreeAndNil( ge );

в третьих, ВЫНЕСИТЕ СОХРАНЕНИЕ В ФАЙЛ ЗА ЦИКЛ!!!!!

procedure TForm1.Button1Click(Sender: TObject);
var
  re:integer;
  ge:TStringList;
begin
  ge:=TStringList.Create;
  for re:= 0 to RichEdit1.Lines.Count -1 do
     if  Length(RichEdit1.Lines.Strings[re])>0 then
           ge.Add(WinToDos(RichEdit1.Lines.Strings[re])) 
     else  
           ge.Add('');

  ge.SaveToFile('1234.txt');
  FreeAndNil(ge);
end;

p.s. если уж так нужно именно ваши функции вызывать, тогда, по крайней мере, не вызывайте их для пустых строк!