|
XilDen
 Стаж: 17 лет Сообщений: 268
|
XilDen ·
09-Авг-11 21:56
(13 лет 7 месяцев назад)
SlAvYaN_AK47
Я тебе в личку всё скинул вчера ещё)
|
|
skew2
Стаж: 14 лет 2 месяца Сообщений: 143
|
skew2 ·
10-Авг-11 14:10
(спустя 16 часов)
Народ подскажите кто знает меня интересуют 2 проблемы с компонентом WebBrowser.
1) Как сделать так чтобы не выходила постоянно ошибка сценария?
2) Как сделать так чтобы программа автоматически заполняла поля на сайтах для входа на свой аккаунт, то есть логин и пароль? Подскажите плиииз а то сам не могу сделать никак((((
|
|
FeD_666
 Стаж: 14 лет 2 месяца Сообщений: 8
|
FeD_666 ·
11-Авг-11 15:27
(спустя 1 день 1 час)
Спасибо за уроки) Подтяну то что забыл с прошлого курса) ДаешЪ еще уроки!!!
|
|
lis_sili
Стаж: 14 лет 2 месяца Сообщений: 8
|
lis_sili ·
12-Авг-11 13:59
(спустя 22 часа)
Антон можно и мне контакты в личку ))))
|
|
LeonYO
 Стаж: 16 лет 3 месяца Сообщений: 265
|
LeonYO ·
12-Авг-11 19:51
(спустя 5 часов)
Люди подскажите мне пожалуйста, как сделать так чтоб при запуске проги на главной форме был виден Image1 или Image2 ??? то есть по рандому выбирается 1-на картинка из 2-ух! Заранее Спасибо!
|
|
50513670
Стаж: 14 лет 11 месяцев Сообщений: 47
|
50513670 ·
12-Авг-11 22:18
(спустя 2 часа 27 мин.)
2-й сезон будет?
|
|
stepsav
Стаж: 13 лет 6 месяцев Сообщений: 2
|
stepsav ·
12-Авг-11 23:53
(спустя 1 час 34 мин., ред. 12-Авг-11 23:53)
Было бы классно если залито было по 1 уроку(((((( у меня трафика нехвотает чтоб скачать;( НАРОД плиз залейте ктонить по отдельности уроки! Плиз!
|
|
Mr.KreDo
Стаж: 14 лет 9 месяцев Сообщений: 1
|
Mr.KreDo ·
13-Авг-11 00:31
(спустя 38 мин., ред. 13-Авг-11 00:31)
stepsav писал(а):
Было бы классно если залито было по 1 уроку(((((( у меня трафика нехвотает чтоб скачать;( НАРОД плиз залейте ктонить по отдельности уроки! Плиз!
а ты по одному качай через торрент =)
50513670 писал(а):
2-й сезон будет? 
будет
|
|
stepsav
Стаж: 13 лет 6 месяцев Сообщений: 2
|
stepsav ·
13-Авг-11 12:54
(спустя 12 часов)
а как качать по 1????????????? я не умею объясните
|
|
sergeyk84
Стаж: 16 лет Сообщений: 59
|
sergeyk84 ·
13-Авг-11 16:32
(спустя 3 часа)
|
|
XilDen
 Стаж: 17 лет Сообщений: 268
|
XilDen ·
13-Авг-11 21:37
(спустя 5 часов, ред. 13-Авг-11 21:37)
Цитата:
1) Как сделать так чтобы не выходила постоянно ошибка сценария?
WebBrowser.Silent := true;
Цитата:
2) Как сделать так чтобы программа автоматически заполняла поля на сайтах для входа на свой аккаунт, то есть логин и пароль?
http://parsing-and-i.blogspot.com/2009/09/twebbrowser.html
Один из уроков 2 сезона будет посвящён данной теме.
|
|
lemonos
Стаж: 14 лет 10 месяцев Сообщений: 97
|
lemonos ·
15-Авг-11 15:46
(спустя 1 день 18 часов)
Предлагаю, показать другим, следующее: 1) работа с dll(динамические и статические подключения, простое приложение с плагинами на основе dll); 2) работа в интернете через WinInet; 3) работа с классом потоков(TThread), написание своих классов потоков.
Пока что всё.
|
|
19901973
Стаж: 13 лет 7 месяцев Сообщений: 3
|
19901973 ·
16-Авг-11 22:44
(спустя 1 день 6 часов)
XilDen писал(а):
Ну незнаю, ребят... У меня почему то прекрасно всё слышно и без выворачивания колонок на полную громкость... а если ещё и колонки выверну, то мой голос орёт на всю комнату... даж и незнаю в чём проблема...
Не друг реально звук почти не слышно пришлось в наушниках сидеть с максимальной громкостью(я и кодеки другие ставил ).А за уроки спс у тебя есче один фанат появился мне нравится твой юмор,И вообще я считаю ,что учеба должна прогодить не принужденно а наоборот весело тогда и учится легко есче раз большое спс за труды.
|
|
XilDen
 Стаж: 17 лет Сообщений: 268
|
XilDen ·
17-Авг-11 11:57
(спустя 13 часов)
19901973
Поставь нормализацию звука в настройках плеера
|
|
skew2
Стаж: 14 лет 2 месяца Сообщений: 143
|
skew2 ·
19-Авг-11 21:50
(спустя 2 дня 9 часов)
XilDen
Антон подскажи ты у нас умный и у тебя тоже Windows 7. Извиняюсь что не по теме. Я пытаюсь установить WindowsXPMode, но постоянно мне вылезает ошибка
как ее возможно решить может ты с этим сталкивался
|
|
lemonos
Стаж: 14 лет 10 месяцев Сообщений: 97
|
lemonos ·
20-Авг-11 11:20
(спустя 13 часов)
skew2, установку проводите с правами администратора? Через правую кнопку делали "Запуск от имени администратора"?
|
|
V1nt84
Стаж: 13 лет 6 месяцев Сообщений: 1
|
V1nt84 ·
20-Авг-11 13:21
(спустя 2 часа, ред. 20-Авг-11 13:21)
Всем привет!
Ребята, может у кого-нить есть исходник программы, которая демонстрирует использование 32-ух битных иконок с альфа-каналом в MainMenu проекта Delphi 7.
Что-то нашел тут http://www.rsdn.ru/forum/delphi/3888212.flat.aspx но не получается 
Буду очень признателен! Спасибо! Может Вы, Антон, урок набросаете  Ведь так приятно работать с программой, которая обладает приятным интерфейсом
|
|
royun
Стаж: 13 лет 7 месяцев Сообщений: 1
|
royun ·
20-Авг-11 21:06
(спустя 7 часов)
Антон здравствуйте. А у Вас есть примеры работы с бинарными файлами ? Например есть описание (структура файла) бинарного файла и необходимо перевести этот файл в читабельный вид. С такой задачей никогда не сталкивались? Было бы интересно посмотреть.
|
|
lemonos
Стаж: 14 лет 10 месяцев Сообщений: 97
|
lemonos ·
22-Авг-11 18:31
(спустя 1 день 21 час)
Кстати, в уроке по работе с БД, пропустили работу с бинарными файлами. То есть запись, чтение в таблицу файлов(картинки, текстовые файлы, архивы, и т.д.).
|
|
Chulpon
Стаж: 17 лет 7 месяцев Сообщений: 52
|
Chulpon ·
23-Авг-11 12:08
(спустя 17 часов)
Кто нибудь может эти видео уроки конвертит.. или сжимать
Заранее благодарен
|
|
lemonos
Стаж: 14 лет 10 месяцев Сообщений: 97
|
lemonos ·
24-Авг-11 15:57
(спустя 1 день 3 часа)
В теме про БД, можно было поверхностно охватить работу в Delphi в SQLLite dll. Может в будущих уроках краткий обзор будет)
|
|
nevelnet
Стаж: 14 лет 7 месяцев Сообщений: 1
|
nevelnet ·
26-Авг-11 17:03
(спустя 2 дня 1 час)
Привет всем))))))) подскажи кто нибудь где здесь ошибка? procedure TForm1.BitBtn1Click(Sender: TObject);
var
i, w: integer;
begin
Randomize;
for i:= 1 to 1 do
begin
w:= 1+ Random(20);
Image1.Picture.LoadFromFile('Image\(''w = '+ IntToStr(w)+').jpg)';
end;
end;
|
|
olupy
 Стаж: 14 лет 9 месяцев Сообщений: 36
|
olupy ·
26-Авг-11 19:13
(спустя 2 часа 9 мин., ред. 26-Авг-11 20:24)
Через 5 дней новый сезон)) Поскорей бы) Сделай трейлер 2 сезона)  Кстати, предлагаю сделать урок по VK API, Т.е. как реализовать VK api в delphi, или как написать мини страничку бота для вк, т.е. кто нить боту в ЛС пишет, а он сразу отвечает.
|
|
lemonos
Стаж: 14 лет 10 месяцев Сообщений: 97
|
lemonos ·
26-Авг-11 19:35
(спустя 22 мин., ред. 26-Авг-11 19:35)
nevelnet, зачем хоть цикл нужен? Его не трогал я. Тут и без цикла хорошо.
Код:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i, w: integer;
ImStr :string;
begin
Randomize;
for i := 1 to 1 do
begin
w := 1 + Random(20);
end;
ImStr := Format('%sImage\(w = %d).jpg', [ExtractFilePath(ParamStr(0)), w]);
Image1.Picture.LoadFromFile(ImStr);
end;
Почему ни в одном уроке для оформления не используется это? Зачем вручную привязку размеров делать. С этими проще
Anchors и Align => тут http://www.delphi.int.ru/articles/48/
Constraints => тут http://stringgrid-delphi.ru/constraints.php
Помните говорили про то, что в Фоксе(БД) можно через макро- непомню что дальше  обратиться к компоненту, в дельфи через это
FindComponent => тут http://www.az-design.ru/index.shtml?Support&SoftWare&Delphi/D3/SB26FindComponent
|
|
LeonYO
 Стаж: 16 лет 3 месяца Сообщений: 265
|
LeonYO ·
28-Авг-11 00:20
(спустя 1 день 4 часа)
Скажите пожалуйсто как зарегестрировать горячую клавишу с помощью элемента HotKey1 ?
Регестрировать клавиши я умею но изменить их неполучается (( регистрирую так : RegisterHotKey(Handle, 1 ,MOD_CONTROL, vk_F1); //соответственно Ctrl + F1
RegisterHotKey(Handle, 2 ,MOD_CONTROL, vk_F2); //соответственно Ctrl + F2 Всё конечно работает но вот мне нужно назначать/изменять их во время работы программы и чтоб регистрировалось именно то что на данный момент находится в HotKey1...
Можно ли сделать чтото такое : RegisterHotKey(Handle, 2 ,HotKey1.HotKey );
компилятор говорит что нехватает параметров (( но как я понимаю HotKey1.HotKey соответствует топу типу данных которые нужны функции RegisterHotKey. помогите решить проблему. Всем СПАСИБО = )
|
|
lemonos
Стаж: 14 лет 10 месяцев Сообщений: 97
|
lemonos ·
28-Авг-11 11:41
(спустя 11 часов, ред. 28-Авг-11 11:41)
LeonYO, вот удобный компонент http://rghost.ru/19572181 , специально для назначения и обработки горячих клавиш. Работать может с компонентом THotKey.
Если не охото компонент ставить, то так. Вообщем то раскодирование значений так же устроено в компоненте.
Код:
unit UnitHk; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, menus; type
TForm1 = class(TForm)
HotKey1: THotKey;
Button1: TButton;
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
private
procedure WMHotkey(var msg: TWMHotkey); message WM_HOTKEY;
{ Private declarations }
public
function UnRegH:boolean;
function RegH(Hk :THotKey):boolean;
{ Public declarations }
end; var
Form1: TForm1; implementation {$R *.dfm} { TForm1 } procedure TForm1.Button1Click(Sender: TObject);
begin
UnRegH;
if not RegH(HotKey1) then
ShowMessage('Не удалось зарегистрировать');
end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnRegH;
end; procedure TForm1.FormCreate(Sender: TObject);
begin
if not RegH(HotKey1) then
ShowMessage('Не удалось зарегистрировать');
end; function TForm1.RegH(Hk :THotKey):Boolean;
var
fShft :TShiftState;
fmodif :Cardinal;
vk :Word;
begin
if not Assigned(Hk) then
Exit;
ShortcutToKey(Hk.HotKey, vk, fShft); // нужно в uses подключить menus
fmodif := 0;
if (ssShift in fShft) then fmodif := fmodif or MOD_SHIFT;
if (ssAlt in fShft) then fmodif := fmodif or MOD_ALT;
if (ssCtrl in fShft) then fmodif := fmodif or MOD_CONTROL;
Result := RegisterHotkey(Handle, 1, fmodif, LOBYTE(vk));
end; function TForm1.UnRegH:Boolean;
begin
Result := UnRegisterHotkey(Handle, 1);
end; procedure TForm1.WMHotkey(var msg: TWMHotkey);
begin
case msg.HotKey of
1:begin
Randomize;
Edit1.Text := IntToHex(Random($FFFFFF), 8);
end;
end;
end; end.
Странно как то форматирует код здесь. Отступы слева одинарные пропали и не только они съехали.
|
|
FeaN0r
Стаж: 16 лет 5 месяцев Сообщений: 14
|
FeaN0r ·
30-Авг-11 08:34
(спустя 1 день 20 часов)
такое бы по C# ещё сделать)я думаю будет востребовано
|
|
maximus_999
Стаж: 14 лет Сообщений: 6
|
maximus_999 ·
30-Авг-11 16:40
(спустя 8 часов)
Огромное спасибо автору 12 видеоуроков скачал и это буду скачать,просто замечательные уроки.
|
|
Sciner1
Стаж: 16 лет 3 месяца Сообщений: 5
|
Sciner1 ·
31-Авг-11 11:47
(спустя 19 часов)
Всем привет!
Разбирался с idHttp, а именно получение исходного кода поисковика Yandex
Проблема встала при выполнении следующего кода: memo2.text:=Utf8ToAnsi(idhttp1.get(ssilka)), где ssilka:='http://yandex.ru/yandsearch?p=0&text='+text+'&lr=63'; вообщем должен был вернуться исходный код и прописаться в memo2, а вместо этого
белиберда про капчу и роботов ))
скрытый текст
Возможно, автоматические запросы принадлежат не вам,
а другому пользователю, выходящему в сеть с одного с
вами IP-адреса. В этом случае вам необходимо один раз
ввести цифры в форму, после чего мы запомним вас и
сможем отличать от других пользователей, выходящих с
данного IP. В этом случае страница с капчей не должна
беспокоить вас в течение длительного времени.</p> <p>Возможно, вы задавали большое количество служебных
запросов нашему поиску. Пользователям, которым
необходимо по роду деятельности обращаться к Яндексу со
служебными запросами, мы рекомендуем воспользоваться
специально разработанным для этих целей сервисом
<a href="http://xml.yandex.ru" title=
"Яндекс / XML">Яндекс.XML</a>.</p> <p>Возможно, что в вашем браузере установлены
дополнения, которые могут задавать автоматические
запросы к поиску. В этом случае рекомендуем вам
отключить их.</p> <p>Также возможно, что ваш компьютер заражен вирусом —
программой-спамботом, использующей ваш компьютер для
сбора информации. Возможно, вам стоит проверить систему
на наличие вирусов, например, антивирусной утилитой
<a href="http://www.freedrweb.com/?lng=ru">CureIt</a>
от «Dr.Web».</p> <p>Если у вас возникли проблемы или если вы хотите
задать вопрос нашей службе поддержки, воспользуйтесь
<a href=
"http://feedback.yandex.ru/?from=captcha">формой
обратной связи</a>.</p>
</div>
</div>
</td> <td class="l-page__gap-right"></td> <td class="l-page__right"></td> <td class="l-page__gap"></td>
</tr>
</table> <div class="b-foot">
<table class="b-foot__layout">
<tr>
<td class="b-foot__layout__gap"></td> <td class=
"b-foot__layout__column b-foot__layout__column_left"></td> <td class="b-foot__layout__column">
<div class="b-foot__links">
<a clas
Как программно обойти эту защиту?
Заранее спс
|
|
duhduhduh2010
Стаж: 15 лет Сообщений: 20
|
duhduhduh2010 ·
15-Сен-11 22:11
(спустя 15 дней, ред. 15-Сен-11 22:11)
Просьба автору, научить ставить Delphi под Linux (Ubuntu), к примеру тот же Lazarus с компонентом Indy 10 - тогда многие делфисты перейдут на Ubuntu и воззреют её мощ и красоту =)
|
|
|