ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
22.03.2009, 09:23
|
|
Постоянный
Регистрация: 25.07.2008
Сообщений: 454
Провел на форуме:
1229135
Репутация:
425
|
|
Сообщение от Nightmarе
У кого нибудь есть рабочий пример как записать звук с микрофона в файл?
Желательно конечно же в низком формате с макс сжатием, но это желательно.
Главное просто рабочий код записи в файл...
http://www.delphisources.ru/pages/faq/base/record_sound.html
http://www.delphisources.ru/pages/faq/base/read_write_sound.html
http://www.delphisources.ru/pages/faq/base/wav_record.html
|
|
|
22.03.2009, 14:06
|
|
Новичок
Регистрация: 26.10.2008
Сообщений: 15
Провел на форуме:
126398
Репутация:
6
|
|
Помогите пожалуйста написать код авторизации на сайте torents.ru
Там куки,а как с ними работать я не представляю.
Вот post-запрос :
Код:
redirect=index.php
cookie_test=xxxxxxxxxx
login_username=MyUser
login_password=MyPass
autologin=on
login=Вход
Вот это не работает:
Код:
procedure TForm1.Button1Click(Sender: TObject);
const
fact:shortString = 'http://torrents.ru/forum/login.php';
var
fGet,fPost:TStringList;
begin
fGet:=TStringList.Create;
fPost:=TStringList.Create;
IdHTTP1.AllowCookies:=true;
IdHTTP1.CookieManager:=IdCookieManager1;
IdHTTP1.HandleRedirects:=true;
With fPost do
begin //with
Add('redirect=index.php');
Add('cookie_test='); //òóò õç ÷òî ïèñàòü
Add('login_username=MyUser');
Add('login_password=MyPass');
Add('autologin=on');
Add('login=Âõîä');
end; //with
fGet.Text:=IdHTTP1.Post(fact,fPost);
If fGet.IndexOf('Âû çàøëè êàê') <> - 1 then
MessageBOX(Application.Handle,'Çàëîãèíèëèñü!','Óäà÷íî!',mb_OK)
else
MessageBOX(Application,Handle,'Îøèáêà!','Íåóäà÷íî!',mb_OK);
IdHTTP1.Free;
IdCookieManager1.Free;
fGet.Free;
fPost.Free;
end;
|
|
|
|
22.03.2009, 14:46
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
Провел на форуме:
3288241
Репутация:
3349
|
|
юзай WinInet - удобнее будет.
А вообще, сначало заходишь на страницу авторизации, там тебе ставятся куки, и потом с учетом этих куков делаешь запрос. Ну и конечно если куки еще в виде input hidden сделаны, то придется еще чуть отпарсить страницу
|
|
|
|
23.03.2009, 15:43
|
|
Участник форума
Регистрация: 28.04.2008
Сообщений: 172
Провел на форуме:
1191083
Репутация:
270
|
|
Всем ку.
Возникла такая проблема: имеется консольное приложение на Delphi. Необходимо очистить консольный вывод. Как это сделать?
|
|
|
|
23.03.2009, 16:41
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Подскажите как скопировать файл если он занят другой программой???
CopyFileTo в этом случае не работает.
В частности интересует копирование файла Messages.mdb из ICQ 6.5 пока клиент запущен и находится онлайн.
|
|
|
|
23.03.2009, 16:56
|
|
Постоянный
Регистрация: 26.12.2007
Сообщений: 353
Провел на форуме:
905389
Репутация:
332
|
|
2Nightmarе
вот посмотри может поможет:
http://www.excode.ru/art5054p13.html
p.s. сам проверить немогу делфи на этом компе нету ):
|
|
|
|
23.03.2009, 17:02
|
|
Постоянный
Регистрация: 26.12.2007
Сообщений: 353
Провел на форуме:
905389
Репутация:
332
|
|
2 art2222
поищи про библиотеку CRT там есть функция очистки
ну или вот
//-----------------------------------------
// Установка курсора в координаты X, Y
//-----------------------------------------
procedure GotoXY(X, Y: Word);
begin
Coord.X := X;
Coord.Y := Y;
SetConsoleCursorPosition(ConHandle, Coord);
end;
//-----------------------------------------
// Очистка экрана - заполнение его пробелами
//-----------------------------------------
procedure Cls;
begin
Coord.X := 0;
Coord.Y := 0;
FillConsoleOutputCharacter(ConHandle, ' ', MaxX * MaxY, Coord, NOAW);
GotoXY(0, 0);
end;
источник: http://delphiworld.narod.ru/base/console_apps_in_delphi.html |
|
|
|
23.03.2009, 17:47
|
|
Участник форума
Регистрация: 28.04.2008
Сообщений: 172
Провел на форуме:
1191083
Репутация:
270
|
|
Сам нашел еще один способ:
Код:
procedure ClearConsoleWindow;
var
ConsoleHandle:THandle;
ConsoleInfo: TConsoleScreenBufferInfo;
Coord:TCoord;
WrittenChars:DWORD;
begin
FillChar(ConsoleInfo,SizeOf(TConsoleScreenBufferInfo),0);
FillChar(Coord,SizeOf(TCoord),0);
ConsoleHandle:=GetStdHandle(STD_OUTPUT_HANDLE);
GetConsoleScreenBufferInfo(ConsoleHandle, ConsoleInfo);
FillConsoleOutputCharacter(ConsoleHandle,' ', ConsoleInfo.dwSize.X * ConsoleInfo.dwSize.Y, Coord, WrittenChars);
SetConsoleCursorPosition(ConsoleHandle,ConsoleInfo.dwCursorPosition)
end;
|
|
|
|
23.03.2009, 20:09
|
|
Новичок
Регистрация: 09.12.2008
Сообщений: 7
Провел на форуме:
20697
Репутация:
0
|
|
Подскажите как сделать чекер двух ссылок. Если ссыла main.php, то ничего не делать, а если index.php то сначала нажимается Button2 а Button1
|
|
|
|
23.03.2009, 20:16
|
|
Участник форума
Регистрация: 14.03.2009
Сообщений: 237
Провел на форуме:
813785
Репутация:
314
|
|
if Edit1.Text='index.php'
Then begin Button2.Click;
Button1.Click;
end;
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
