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

Да, пасс действительно в инт переводить не нужно было

 

Slesh когда-то писал "MicSpy". Типа прослушка через микрофон. Поищи по форуму, может тебе поможет. Там вроде были исходы, а может и нет...

 

Вот, держи, модуль AMixer.pas

Создаёшь класс TAudioMixer, потом в свойстве Destinations переходишь на первый Destination(воспроизведение), там ищешь в массв-свойстве Connections микрофон(по типу) и потом как только соединение найдёшь вызываешь <созданы_миксер>.setMute(destionation, connection, true); destionation - обычно в 0(воспроизведение), connection - индекс нйденого микрофона.

http://slil.ru/28632240

 

nightmare, вообщем смотри тут:
forum.delphiarea.com/viewtopic.php?p=1725#1725

там достаточно понятно объяснили как включать микрофон

 

Вот так

 

Я у себя кстати не проверялМожет накосячил, щас проверю. Кстати а на запись или воспроизведение надо?

Правка : всё прекрасно работает, если тебе не на вопроизведение а на запись, то поменяй строчку

if UpperCase(Copy(ta.Destinations.Destination.Data.szName, 1, 6)) = 'VOLUME' then

на

if UpperCase(Copy(ta.Destinations.Destination.Data.szName, 1, 6)) = 'RECORD' then

 

Кстати, у тебя может быть несколько микшеров? Тогда в ta.MixerId нужно писать другой ID [0..5] обычно

 

Ну дык перебором микшеров получилось?

 

if (html_tag.item(i).value='123') then
html_tag.item(i).click;

там где 123 там кнопка нажатие на неё, а как сделать чтоб нажимало не по названию а нажимало именно javascriptostComment();


тоесть как в dephi выполнить javascript ?^_^

 

в Delphi нет встроенного JS интерпретатора, пока.

html_tag что это за объект?

 

Как сделать например чтоб при нажатию на кнопку нажималось javascriptostComment();

 

все ок. решил проблему: webbrowser1.Navigate('javascriptostComment();');

 

Допустим есть некий пользовательский класс, существующий в приложении в единственном экземпляре.
Вопрос: достаточно ли для того чтобы сделать его потокобезопасным
добавить поле - критическую секцию, инициализировать ее в конструкторе, удалять в деструкторе а внутри методов класса входить в эту крит. секцию?
например вот так:

TMyClass = class
private
FCritSec : TRTLCriticalSection;


procedure TMyClass.SomeMethod();
begin
EnterCriticalSection(FCritSec);
try
//тут некоторые действия
finally
leaveCriticalSection(FCritSec);
end;
end;

 

Можно ли в делфи 7 создать структуру? (типа как в C++)
Если да то как?

 

можно
в разделе type например:

TMyStruct = record
I : Integer;
Str : String;
Count : Float;
.....
end;

Потом объявляешь переменную этого типа:

var
Struct : TMyStruct

И используешь:

begin
Struct.I := 0;
.....

 

Ребята, очень нужен компонент или просто юнит с реализацией протокола mail.ru agent, скачал один компонент (http://yxu.org.ru/files/client.rar) не робит походу... буду очень благодарен.

 

Сталкнулся с таким приколом первый раз и затупил...

procedure TForm1.FormCreate(Sender: TObject);
var
msf:textfile;
mes:string;
begin
assignfile(msf,'msgs.txt');
reset(msf);
while not Eof(msf) do
begin
readln(msf,mes);
form1.Edit1.Text:=mes;

{Здесь мне надо менять form1.Edit2.Text, form1.Edit3.Text и т.д. Как это зделать???}
end;

end;

 

Как вариант - задать для этих эдитов свойство tag тем самым пронумеровав их.
Затем пробежаться по элементам формы и проверь нужный tag и записывать в этот элемент

 

Поставил семерку и столкнулся с проблемой, что паскаль не хочет разворачиваться на весь экран.Не подскажите как решить эту проблему?

 

Турбо паскаль развернуть? Alt+Enter