Source Examples
Jump to navigation
Jump to search
Source Examples
On this page Source example are going to collect (or links to it) which working on AROS freepascal
One example, Put a message to a named port:
function SafePutToPort(Msg: PMessage; Portname: string): Integer;
var
Port: PMsgPort;
PName: PChar;
begin
Result := -1;
PName := PChar(Portname + #0);
Forbid();
Port := FindPort(PName);
if Assigned(Port) then
begin
PutMsg(Port, Msg);
Result := 0;
end;
Permit();
end;