02.11.2007, 00:02
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
С нами:
10653446
Репутация:
836
|
|
Сообщение от z01b
Помогите плз разобраться с ф-цией WaveOutOpen (api)
Было бы хорошо с примерчиком.
Курил мсдн, но не помог (
Для воспроизведения звуковых файлов на низком уровне после опре-деления возможностей устройства вывода необходимо открыть устройст-во, это удобно сделать с помощью функции waveOutOpen.
UINT
waveOutOpen(LPHWAVEOUT lphWaveOut,
UINT wDeviceID,
LPWAVEFORMAT lpFormat,
DWORD dwCallbackInstance,
DWORD dwFlags);
Здесь lphWaveOut -дальний указатель на переменную типа HWAVEOUT. В эту переменную будет записан идентификатор устройства вывода, который необходим для выполнения всех операций с устройством. Функция waveOutOpen также может быть использована для определения возможности воспроизведения звуковых данных заданного формата (в том числе нестандартного), в этом случае параметр lphWaveOut может иметь значение NULL, дополнительно в параметре dwFlags следует установить флаг WAVE_FORMAT_QUERY.
подробнее тут
выкинь свой мсдн, переходи на траву посильнее - гугл
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
Последний раз редактировалось W!z@rD; 02.11.2007 в 14:35..
|
|
|
02.11.2007, 01:09
|
|
Постоянный
Регистрация: 05.01.2007
Сообщений: 508
С нами:
10182506
Репутация:
1393
|
|
у меня сайт не работает (
_____________________________________________
Уже разобрался сам ), нашол на васме uMOD, юзайте, очень полезно!
Последний раз редактировалось z01b; 02.11.2007 в 03:48..
|
|
|
|
02.11.2007, 19:24
|
|
Познающий
Регистрация: 29.10.2007
Сообщений: 79
С нами:
9754506
Репутация:
16
|
|
Помогите пожалуйста! Есть такой код:
Код:
var
a:integer;
b,c:string;
begin
h.host:='www.google.ru';
j.Max:=memo4.Lines.Count;
////////
for a:=1 to memo4.Lines.Count-1 do
begin
Application.ProcessMessages;
if pos(':',memo4.Lines[a])>0 then
begin
b:=copy(memo4.Lines[a],0,pos(':',memo4.Lines[a]));
c:=copy(memo4.Lines[a],pos(':',memo4.Lines[a])+1,length(memo4.Lines[a])+1);
end;
////
form1.Caption:=inttostr(a)+b;
j.Position:=a;
h.ProxyParams.ProxyServer:=b;
h.ProxyParams.ProxyPort:=strtoint(c);
try
h.get('www.google.ru');
except
form1.Caption:='Проверка прокси';
end;
Никак не получается проверить(((
Потому что прокси каждый следующий идет совершенно не правильно... |
|
|
|
02.11.2007, 21:39
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
С нами:
10653446
Репутация:
836
|
|
Код:
var
a:integer;
b,c:string;
begin
h.host:='www.google.ru';
j.Max:=memo4.Lines.Count;
////////
Application.ProcessMessages;
for a:=0 to memo4.Lines.Count-1 do
begin
if pos(':',memo4.Lines[a])>0 then
begin
b:=copy(memo4.Lines[a], 0, pos(':',memo4.Lines[a])-1);
c:=copy(memo4.Lines[a],pos(':',memo4.Lines[a])+1,length(memo4.Lines[a]));
end;
////
form1.Caption:=inttostr(a)+b;
j.Position:=a;
h.ProxyParams.ProxyServer:=b;
h.ProxyParams.ProxyPort:=strtoint(c);
try
h.get('www.google.ru');
except
form1.Caption:='Проверка прокси';
end;
мб так? хотя я хз
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
03.11.2007, 22:31
|
|
Познающий
Регистрация: 29.10.2007
Сообщений: 79
С нами:
9754506
Репутация:
16
|
|
Сообщение от W!z@rD
Код:
var
a:integer;
b,c:string;
begin
h.host:='www.google.ru';
j.Max:=memo4.Lines.Count;
////////
Application.ProcessMessages;
for a:=0 to memo4.Lines.Count-1 do
begin
if pos(':',memo4.Lines[a])>0 then
begin
b:=copy(memo4.Lines[a], 0, pos(':',memo4.Lines[a])-1);
c:=copy(memo4.Lines[a],pos(':',memo4.Lines[a])+1,length(memo4.Lines[a]));
end;
////
form1.Caption:=inttostr(a)+b;
j.Position:=a;
h.ProxyParams.ProxyServer:=b;
h.ProxyParams.ProxyPort:=strtoint(c);
try
h.get('www.google.ru');
except
form1.Caption:='Проверка прокси';
end;
мб так? хотя я хз Не то ,к сожаленью
|
|
|
|
04.11.2007, 11:56
|
|
Участник форума
Регистрация: 11.07.2006
Сообщений: 125
С нами:
10439609
Репутация:
71
|
|
поставь курсор на строчку функции нажми F5 и запусти
потом нажимая F7 просматривай значения в переменных
|
|
|
|
04.11.2007, 12:34
|
|
Познающий
Регистрация: 29.10.2007
Сообщений: 79
С нами:
9754506
Репутация:
16
|
|
Так я знаю где ошибка.В функции pos. Я не понимаю как ее правильно написать)
|
|
|
|
04.11.2007, 20:10
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
С нами:
10653446
Репутация:
836
|
|
Сообщение от CyberTm
Так я знаю где ошибка.В функции pos. Я не понимаю как ее правильно написать)
мда...
функция pos
возвращает: указатель на первый символ-вхождение
при использование надо указать 2 вещи, а именно:
1. SubString - строку необходимую найти
2. s - собственно где искать
пример
Код:
var
i: Byte;
begin
i:=pos('привет', 'медвед привет');
if i>0 then ShowMessage(IntToStr(i));
end;
вернет число 8...
давайте посчитаем...
медвед привет <- всего 13 символов...
почему 8??? это же медвед Привет
все правильно... функция вернула указатель на 1 символ...
Сегодня у меня делфи начал тормозить жестоко. Он гзузиться гдето 2 минуты и работать в него, почти невозможно. От чего он так?
ЗЫ Переустановка не помогает (
1. поудаляй компоненты которыми напичканна студия.
2. после деинсталляции зачисть реестр.
3. тотально удаление т.е. все файлы bpl из папки с виндой, Shift+Delete на папке Delphi в ..\Program Files\Borland, удаление всего (в реестре) где встречается Delphi, Borland, pas, ...
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
Последний раз редактировалось W!z@rD; 04.11.2007 в 20:13..
|
|
|
|
04.11.2007, 15:45
|
|
Banned
Регистрация: 27.08.2007
Сообщений: 159
С нами:
9845666
Репутация:
171
|
|
как написать программу чтоб она "заходила" на сайт допустим mysite.ru ,чтоб счетчик защитывал посещение и при этом юзер ничего не видел?
|
|
|
|
04.11.2007, 16:01
|
|
Участник форума
Регистрация: 16.09.2006
Сообщений: 139
С нами:
10342455
Репутация:
144
|
|
Вот можешь глянуть исходники моего SiteClicker'а
Скачать
Правда тут не совсем невидимо для юзера, но зато может юзать список прокси! |
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
