Source Examples

From Freepascal Amiga wiki
Revision as of 16:11, 24 August 2013 by Alb42 (talk | contribs)
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;