fork download 
  1. program ideone;
  2. {$mode objfpc}
  3. uses dynlibs;
  4.  
  5. type
  6.   TStrLen = function(a:pchar):SizeInt; cdecl;
  7.  
  8. var
  9.   LibC: TLibHandle = NilHandle;
  10.   Func: TStrLen;
  11.  
  12. begin 
  13.   LibC := LoadLibrary('libc.so.6');
  14.   if LibC = NilHandle then Exit;
  15.   Func := TStrLen(GetProcedureAddress(LibC, 'strlen'));
  16.   Writeln(Func('Test'));
  17. end.
Success #stdin #stdout 0s 6416KB
comments (?)
stdin 
Standard input is empty
stdout 
4
https://ideone.com/ljb8CT
language:
Pascal (fpc 3.0.4)
created:
6 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!