Re: Запросы на написание библиотек. Библиотеки запрашивать только здесь.
Плиз хелп: читал на форуме о потугах работы с смс, написал приведенный ниже код - хотел понять по какому порту оператор шлет смс (чтобы их потом читать). не могу вкурить - почему то стоит на 'port: 0' и все... в чем фишка? может появились нормальные библиотеки для работы с смс и звонками? тело - мотор. Заранее спасибо.
program GetSMSPort;
uses msg;
var
s: string;
i:integer;
begin
while true do begin
for i:=0 to 1000 do
begin
setcolor(255,255,255);
fillrect(0,0,100,20);
setcolor(0,0,0);
DrawText('port: '+integertostring(i), 0, 0);
Repaint;
msg_start('sms://:'+integertostring(i));
s:=msg_get;
if s<>'' then
begin
setcolor(255,255,255);
fillrect(0,0,100,20);
setcolor(0,0,0);
DrawText(s, 0, 0);
Repaint;
Delay(10000);
end;
msg_stop;
end;
end;
end.
|