 
  
   
 .

   
 
 
,   
  
.   
 
  
 . , 
,  - 
 .
 
  
  
  res. 
  
    
   - 
    
.  
 : 
  
"Project -> Import resource
file...".  
   ,
   
 "".
  
  
   
  . 
  
:  , 
   
 ( 
  
   ),
  
.


program ResourceSample;
 var text:Resource;
  img:image;
  exit:command;
  str1,str2:string;
begin
 text:=OpenResource('/
tekst.txt');
 if (ResourceAvailable(text))
then
  begin
   str1:=ReadLine(text);
   str2:=ReadLine(text);
   CloseResource(text);
  end;
 DrawText(str1,0,130);
 DrawText(str2,0,140);
 img:=LoadImage('/
image.png');
 DrawImage(img,0,0);
 if OpenPlayer('/
wrong.mid','audio/midi') then
  if SetPlayerCount(1) then
   if StartPlayer then
DrawText
(' - '+
    IntegerToString
(GetPlayerDuration)+'
.',0,150);
 exit:=createCommand
('',CM_SCREEN,1);
 addCommand(exit);
 Repaint;
 while
exit<>GetClickedCommand
do delay(100);
end.


  : "text"
 
  
 , "img" - 
 ,
"exit" -  , 
   
 
,  "str1"  "str2"
   
 .
 
  (
OpenResource), 
,   
 -
ResourceAvailable 
  "true".
   
 , 
   
ReadLine ( 
 , 
 ).  ,
MIDlet Pascal 
  
 ReadByte
(res:resource):integer - 
  
   
 "EOF", 
  
 . 
 
CloseResource   
   
 DrawText.
 LoadImage
  
 "img"  
    
 "0,0".
   
  . 
  ,
 GetPlayerDuration,
 "true", 
 
,  "false", 
-  .
OpenPlayer 
  
 
  ,
  
   
:
audio/x-wav - 
 wav-
;
audio/basic - 
 au-
;
audio/mpeg - 
 mp3-
;
audio/midi - 
 MIDI-
.
 , 
   
  
MIDP-2.0,  
Properties  
MIDP-version  MIDP-2.0.
 SetPlayerCount
,  
 
 (
"-1" ,  
  ).
   
 
OpenPlayer,  
StartPlayer. StartPlayer
 
,  
OpenPlayer, StopPlayer

. 
GetPlayerDuration

 
( ),
 .
 , 
  
  , ..
 
 .
 
 
 , 
   
 
 . 
 "while" 
  "exit".
