[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

MCSnake, вот глянь: http://www.realcoding.net/article/view/3666

 

Нужен хелп. Как можно отключить звук в системе программно,чтобы спикеры молчали? Проверял функцию auxSetVolume,не сработало. Как сделать. Надо

 

-nEx-, если ты про PC speaker'ы, то:

Code:

SyStemParametersInfo(SPI_SETBEEP,0,nil,SPIF_UPDATEINIFILE);

а если нет, то вот что-то есть:

 

MCSnake компонент диалог принт на вкладке диалоги

 

Хочу чтобы каждый уин из списка подкл и послал сообщение как мне это сделать примерно???
Это не помогает

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
 n,i,k:integer;
begin
 repeat
  begin
   N:=strtoint(edit2.Text);
    for i:=0 to N do
     begin
      k:=pos(';',memo1.Lines[i]); //Ищем ';' и записываем где оно расположено
      ICQClient1.UIN:=strtoint(copy(memo1.Lines[i],0,k-1)); //Выдергиваем уин и вставляем
      ICQClient1.Password:=copy(memo1.Lines[i],k+1,length(memo1.Lines[i])-k); //Выдергиваем пасс и вставляем
      ICQClient1.Login();
     end;
  end;
 until (N=10);
end;

procedure TForm1.ICQClient1Login(Sender: TObject);
begin
 ICQClient1.SendMessage(strtoint(edit1.text), '1111');
end;

 

diznt используй потоки. А объекты ТICQClient создавай ручками в коде...

 

Короче есть браузер на делфи(самый примитивный) подскажите как засобачить чтоб он работал через проксю? хотя бы 1)))
если можно обясните по подробней
зарание СПС=)

 

Вот простая задача по вычислению наименьшего общего кратного

Code:

program NOK;
var a,b,s,x: real;
begin
read (a,b);
if a>b then x:=a else x:=b;
begin
for s:=x to a*b do
begin
if s/a = s/a and s/b = s/b then write (s);
end
end
end 

Выполнить программу не удаётся, выскакивает ошибка "Invalid FOR control variable". Я всё не могу понять, в чём я ошибся? Просьба помочь.

 

Player_1, либо begin перед for'ом лишний, либо ты его не туда засунул

 

в for нельзя пихать переменную типа real.
здесь так как надо: http://labs.raraavis.ru/3/delphi/

 

А что решение такое большое?
Просто у меня есть эта задача в qbasic (я её переделываю для pascal), и там намнооого меньше кода.



Вот решение на qbasic'е:

Code:

input a,b 
if a>b then x=a else x=b 
for s=x to a*b step 1 
if s/a = s/a and s/b = s/b then print s: end 
next s

 

Code:

program for3;
  var m,n,k, NOK: integer;
begin
  write(' m = '); readln(m);
  write(' n = '); readln(n);
for k:=m*n downto n do
    if (k mod m = 0) and (k mod n = 0) then NOK:=k;
  writeln(' NOK = ',NOK);
end.

 

dos999 не подскажешь как??? в инете не нашол

Поставлю 10 плюсов

 

2Sinay

Решение хорошее, но только почему после введения значений m и n, меня выкидывает в окно редактирования кода? Приходится cнова запускать программу, чтобы увидеть результат.

 

http://forum.ixbt.com/topic.cgi?id=40:3062

 

шел бы ты основы поучил, не стыдно?

 

допиши

Code:

readln;

 

Здравствуйте. У меня такой вот вопрос. Постараюсь написать понятнее..
Хочу сделать что-то типа накрутчика для сайтов... получается загружаю сайт.ru в webbrowser .

Code:

 Webbrowser1.Navigate(сайт.ru);

Выискиваю все ссылки, которые есть на нём и записываю их в memo или ListBox.

Code:

  for i := 0 to Webbrowser1.OleObject.Document.links.Length - 1 do  // Listbox1.Items.Add(Webbrowser1.OleObject.Document.Links.Item(i)); memo1.Lines.Add(Webbrowser1.OleObject.Document.Links.Item(i));

Дальше не знаю что мне делать, что б при загрузке любой ссылки из списка считалось, что я перешёл по ней с сайт.ru а не просто ввёл её в строку. Вот никак не получается это сделать.
Подсказывал мне кто-то что б использовал

Code:

WebBrowser1.Navigate2(URL, Flags, TargetFrameName, PostData, Headers);

не помогает. Всё равно показывает, что вводил новую строку, а не перешёл с сайта
Напишите пожалуйста что нужно сделать

 

это смотря где накручивать. Навен на воей партнёрке проверяется реферер...
Не знаю как с этим коспонентом веббраузером... Но посоветую те просто отправлять на 80 порт запросы с хидрами, которые ты пожелаешь

 

Reffer проверяется, отснифай запрос с твоей проги и запрос с браузера.