Здраствуйте вот код
program sms;
Uses resloader;
const
num='00000000';
pref='халоу пиплы';
filik='data.txt';
var
res : resource;
nomer : integer;
id2,id,text : string;
logo1 : image;
logo : image;
procedure error;
begin
SetColor(0, 0, 0);
FillRect(0, 0, GetWidth, GetHeight);
DrawImage(logo, GetWidth/2-66,GetHeight/2-80);
SetColor(255, 0, 0);
DrawText('ОШИБКА!!!', (GetWidth - getStringWidth('ОШИБКА!!!'))/2, GetHeight-50);
repaint;
delay(300);
end;
begin
logo:= LoadImage('/logo.png');
OpenRes(filik);
id := resloader.ReadLine;
CloseRes;
id2:=resloader.win2utf(id);
text:=pref+' '+id2;
SetColor(0, 0, 0);
FillRect(0, 0, GetWidth, GetHeight);
DrawImage(logo, GetWidth/2-66,GetHeight/2-80);
repaint;
delay(100);
if not smsStartSend('sms://'+num, text) then error;
while smsIsSending do // ждём, пока сообщение не будет отправлено
delay(100);
if not smsWasSuccessfull then error; // проверяем, успешно ли было отправлено сообщение
delay(200);
end.
на нокии n79 выдает ошибку out of memory , вот эту строку(id := resloader.ReadLine; ) убираю и все вроди норм робит, что самое странное на более слабоим телефоне работает норм