Функция поиска и замены подстроки в строке типа PChar

[Son]

Делаю dll в которой идет преобразование строк. При использовании string выдает ошибки. Помогите пожалуйста с функцией поиска и замены строк с использованием PChar.

[Stilet]

Так а что функция то должна делать?

[Son]

Сообщение от Stilet

Так а что функция то должна делать?

Преобразовывает HTML код. На входе текст страницы, на выходе выдранные нужные данные.

function plg_ParseLinkHTML(HTMLcode:PChar;st rParam:Pchar):PChar;stdcall;
var //sp,spPar:string;
sp,spPar:PChar;
nm,i:integer;
ldDate:TDate;
begin
Result:='';
try
ldDate:=strtodate(strParam);
spPar:=PChar(FormatDateTime('yyyy"" mm""dd',ldDate));
except
exit;
end;
sp:='';
sp:=HTMLcode;
if sp='' then exit;
sp:=StrPos(sp,'<table cellspacing="1" cellpadding="5" border="0">');
spPar:=StrPos(sp,'</table>');
nm:=StrLen(Sp)-StrLen(spPar);
spPar:=StrMove(spPar,sp,nm);
sp:=spPar;
plg_ParseLinkHTML:=PChar(sp);
end;

Например выдрать нужную таблицу. Ошибка в строке:

spPar:=StrMove(spPar,sp,nm);

[Stilet]

А почему не воспользуешся стандартной copy?

[Son]

Сообщение от Stilet

А почему не воспользуешся стандартной copy?

C PChar она не работает, а на string возникает ошибка.

[raxp]

...а в string перевести никак?

[Виталий Желтяков]

При работе с html есть одна жестокая проблема с кодировками. Сам не мало страдал. Советую работать через memo:

// Процедура замены текста в Memo1 
procedure ReplaceText(FindText: PChar; ReplaceText: PChar);
var i: integer;
    StopSearch: bool;
begin
  i := 1;
  StopSearch := True;
  while StopSearch do
    begin
      i := Pos(FindText, Form1.Memo1.Lines.Text);
      if i > 0 then
        begin
          Form1.Memo1.SelStart := i - 1;
          Form1.Memo1.SelLength := Length(FindText);
          Form1.Memo1.SelText := ReplaceText;
        end
      else
        StopSearch := False;
    end;
end;

[Son]

Сообщение от Виталий Желтяков

При работе с html есть одна жестокая проблема с кодировками. Сам не мало страдал. Советую работать через memo:

// Процедура замены текста в Memo1 
procedure ReplaceText(FindText: PChar; ReplaceText: PChar);
var i: integer;
    StopSearch: bool;
begin
  i := 1;
  StopSearch := True;
  while StopSearch do
    begin
      i := Pos(FindText, Form1.Memo1.Lines.Text);
      if i > 0 then
        begin
          Form1.Memo1.SelStart := i - 1;
          Form1.Memo1.SelLength := Length(FindText);
          Form1.Memo1.SelText := ReplaceText;
        end
      else
        StopSearch := False;
    end;
end;

К сожалению я использую этот код в dll библиотеке. Вот кусок из кода:

library ats_01;

uses
windows,Controls,SysUtils, System,Dialogs;

function plg_ParseLinkHTML(HTMLcode:PChar;st rParam:Pchar):PChar;stdcall;
var //sp,spPar:string;
sp,spPar:PChar;
s:string;
nm,i:integer;
ldDate:TDate;
begin
Result:='';
try
ldDate:=strtodate(strParam);
spPar:=PChar(FormatDateTime('yyyy"" mm""dd',ldDate));
except
exit;
end;
sp:='';
sp:=HTMLcode;
if sp='' then exit;
nm:=POS('<table cellspacing="1" cellpadding="5" border="0">',sp);
if nm=0 then exit;
s:=sp;
s:=Copy(s,nm,Length(s)-nm);
sp:=PChar(s);
ShowMessage(sp);
nm:=POS('</table>',sp);
if nm=0 then exit;

plg_ParseLinkHTML:=sp;

end;

exports
plg_ParseLinkHTML;

begin
end.

Выдает ошибку: Access violation at address 00404AF7 in module
Как понимаю проблема в распределении памяти. Отказываться от dll очень не хочется. Помогите кто может.

[raxp]

1- sharemem
2- кто вам мешает получить pchar, преобразовать его в string, пропарсить чего-нужно, преобразовать в pchar и выдать обратно?

[Son]

Сообщение от raxp

1- sharemem
2- кто вам мешает получить pchar, преобразовать его в string, пропарсить чего-нужно, преобразовать в pchar и выдать обратно?

Так и делаю. Функция отрабатывает. Даже выдает нужный результат. Но на этапе компиляции возникает ошибка при выходе из функции или во время освобождения dll.