Добрый день, а у меня такая проблемма
вот код
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.
почему то на нокия 2610(топор) работает, а на n79 пишет ошибку о не хватке памяти, тоже самое было до подключения вашей библиотеки, и с ней тоже самое, ничего не могу понять
все вроди норм заработало, правда в чем была ошибка так и не понял
Сообщение от cyberdyne
все вроди норм заработало, правда в чем была ошибка так и не понял
|
оказывается в тексте ресурса должно быть более 3 строк минимум 4, я записал 1 строку и 3 enter и все начило работать, почему так -хз