[Антон Макрушин] Ознакомительные видеоуроки по Delphi 7 / Сезон 1 (13/13) [2009-2011, RUS]

Страницы :   Пред.  1, 2, 3 ... 45, 46, 47, 48, 49  След.
Ответить
 

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 лет 8 месяцев

Сообщений: 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 часа)

https://rutr.life/forum/viewtopic.php?p=23322219#23322219
[Профиль]  [ЛС] 

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 и воззреют её мощ и красоту =)
[Профиль]  [ЛС] 
 
Ответить
Loading...
Error