Nejde v dll Result – Delphi – Fórum – Programujte.com

Dobrý den,
prosím o radu.
Mám dll v delphi ve kterém mám funkci :

function klavesa: TMessage;
var
Message: TMessage;
HMessage: THandle;
HMap: THandle;
P: PChar;

const
MsgId = 'MappingBroadcastMessage';
MappingId = 'TestMapping';
MaxTextLength = 30 * 1024;

begin
HMessage := RegisterWindowMessage(MsgId);
HMap:= OpenFileMapping(FILE_MAP_READ,
False, MappingId);

with Message do
if Msg = HMessage then
begin
if HMap <> 0 then
begin
P := MapViewOfFile(HMap, FILE_MAP_READ,
0, 0, MaxTextLength);
// Memo1.Text := P;
UnmapViewOfFile(P);
end;
Result:=0;
end
else
// inherited;
Result:=P;
end;

proč teda nefunguje příkaz Result?? píše to chybu : Incopatible types:"Integer and PAnsiChar".

jo a těch poznámek // si nevšímejte ....

Děkuji moc za rady ..... s pozdravem Paulí.

mas nakonci toho kódu

....

exports klavesa;



begin

end.

no to tam taky mám ..... ... ... ale jinak dík

Porblém je v tom, žemáš tu funkci nadeklarovanou tak, že chceš vracet TMessage zatímco do Result cpeš PChar, což jsou naprosto nesourodé datové typy. Zkus napsat, čeho chceš docílit, pak se tu snad někdo na něco zmůže.