[Rorzakh]

Здравствуйте, есть модуль в Delphi в котором реализована функция приема данных с COM порта

Код:

function Readp(Fhandle:Thandle): shortstring;
var
  Buf:pointer;
  dwRead : Cardinal;
  s:shortstring;
begin
  Buf := GetMemory(255);
  s := '';
  ReadFile(FHandle, Buf^, 255, dwRead, nil);
  s := String(Buf);
  result:=Copy(s,1,dwRead);
  Freememory(Buf);
end;

FHandle: Thandle - глобальная переменная

Функция работает, и все прекрасно считывает.
1 вопрос: При переносе этой функции в DLL и подключения DLL в программу ничего не считывается. В чем может быть проблема?
2 вопрос: если в функции result-значение вместо shortstring я ставлю string ничего не считывается и выход из функции сопровождается ошибкой "Invalid Pointer Operation". в чем может быть причина и как от этого можно избавиться? К тому же данная ошибка проявляется и с shortstring но уже при выходе из программы. В инете нашел что

Эта ошибка генерируется процедурами DISPOSE или FREEMEM в случае, когда указатель имеет значение NIL или указывает на адрес, лежащий за пределами динамически распределяемой области памяти.

Заранее спасибо.