[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 или указывает на адрес, лежащий за пределами динамически распределяемой области памяти.

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

[Alegun]

1 вопрос: При переносе этой функции в DLL и подключения DLL в программу ничего не считывается. В чем может быть проблема?

Вместо string здесь нужно использовать PChar, ну или таскать с программой подключенную к ней BORLNDMM.DLL

[Bargest]

Вроде нельзя вот так просто взять и Pointer привести в String. В строке перед началом самой строки должна быть длина и выделенное кол-во байт. Лучше попробуй использовать PChar вместо Pointer.
Ну и то, что написал Alegun, естественно.

[Rorzakh]

Alegun, Bargest спасибо за советы!

Сделал вот так. Как и в прошлый раз в модуле все отлично работает а в dll не хочет. Правильно ли я вас понял? Если да, то такой вопрос, символы приходят, но во первых почти всегда одно и тоже (посылаю разные наборы символов), во вторых символы какие то непонятные. Что это такое и как с этим разобраться?

Код:

function readport(hport:Thandle):Pchar; stdcall;
var
  Buf : PChar;
  dwRead : Cardinal;
begin
  Buf := GetMemory(255);
  ReadFile(hport, Buf^, 255, dwRead, nil);
  result := Buf;
  FreeMemory(buf);
end;

[NumLock]

принимай буфер и его размер в качестве параметра функции, а возвращай количество прочитаных байт. соответственно память выделяй в exe.
зачем stdcall, в exe также? есть ли смысл вообще это в dll переносить?

[Rorzakh]

NumLock
Если выделять память то только в dll так как в дальнейшем она будет подключаться не к exe.
В инете нашел такой код

Код:

function Readport(fHandle:Thandle) : byte;
var
  dwRead : Cardinal;
  buf:array [0..$FF] of Char;
begin
  ReadFile(FHandle, Buf, SizeOf(buf), dwRead, nil);
  Result := Byte(Buf[0]);
end;

В unit-е все опять прекрасно работает, а в dll этот же код ничего не считывает. Может кто нибудь объяснить почему так происходит?

[Alegun]

А вы при вызове библиотеки в неё хендл апликации передаёте? В смысле, Application.Handle

З.Ы. В функции из 4 поста перед строкой result:=Buf желательно добавить

Код:

SetLength(buf, dwRead);

[Rorzakh]

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

А вы при вызове библиотеки в неё хендл апликации передаёте? В смысле, Application.Handle

К сожалению без понятия о чем вы, если можно как нибудь поподробнее, и если не сложно с каким нибудь примером

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

З.Ы. В функции из 4 поста перед строкой result:=Buf желательно добавить

Код:

SetLength(buf, dwRead);

Delphi ругнулся

Constant object cannot be passed as var parameter

[Rorzakh]

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

принимай буфер и его размер в качестве параметра функции, а возвращай количество прочитаных байт.

Спасибо ваш совет действительно помог