Не подскажете как, я в этом полный ноль

fantastik, to use library download any library eg. Lib_base64v2,
then move the library to the folder where you are saving your source code(*.mpas) e.g e:/mobpas/
each library has it own functions..
Then in your code before "begin" add

uses mylib;

where mylib is the name of your library as in Lib_mylib.class.
Then in your code to use the function of a library you write the library_name.function() as in mylib.myfunction()
e.g I want to use Lib_base64v2.class

program libtest;
uses base64v2;
begin
$en = base64v2.encodestring('HelloWORLD');
drawText($en, 5, 5);
repaint;
delay(5000);
end.

But note that many midletpascal library are not yet compatible with mobpascal and they will generate exception.
More info below...

[url]annimon.com/forum/index.php?act=post&id=339232[/url]

skyezeno, thanks

fantastik, did you speak russian or you are using translator...

skyezeno, I speak in Russian.

byte:=readByte(res);
if byte=EOF then break;
text:=text+chr(byte);

выдает ошибку , переменная или фунция EOF не найдена, че делать, помогите плз

Fantastik, а что это за библиотека? допустим, это jsr75. тогда пробуй if byte= jsr75.EOF then break;

fantastik, to me this is an error in mobpascal, 'EOF' is recognised as a string in the compiler and 'byte' is an integer.
But anyway what you do is first put you code in a 'while-loop' e.g

while (resourceAvailable(myresource)) do
begin
//code
end;

where "myresource" is your resource variable.

then write the "EOF" as "stringtointeger('EOF');"

so your final code will look like

program testing;
var
res: resource;
byte: integer;
text: string;
begin
res:=openResource('/myresource.txt');
while (resourceAvailable(res)) do
begin
byte:=readByte(res);
if (byte=stringtointeger('EOF')) then
begin
closeResource(res);
break;
end;
text:=text+chr(byte);
end;
// remaining codes
end.

Note: I have not yet tested the code.

ВитаминКО, Это не либа.

If that method did not work, try this

At the end of your resource e.g "myresource.txt", in a newline add "//resource-end-here//"

then write this code

program testing;
res: resource;
byte: integer;
reader: string;
text: string;
begin
res: openResource('/myresource.txt');
while (resourceAvailable(res)) do
begin
reader := readLine(res);
byte:=readByte(res);
if (reader = '//resource-end-here//') then
begin
closeResource(res);
break;
end;
text:=text+chr(byte);
end;
// rest of your code..
end.

Goodluck..