Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
03.05.2010, 14:48
|
|
Познающий
Регистрация: 14.05.2009
Сообщений: 92
Провел на форуме:
299447
Репутация:
5
|
|
Вроде есть такой компонент TAnimate Входит в стандартную поставку.
Или надо чтобы сам компонент плавно исчез?
|
|
|
03.05.2010, 14:56
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
Провел на форуме:
3728999
Репутация:
444
|
|
даже если использовать TAnimate, всё равно картинка остаётся статической((
|
|
|
|
03.05.2010, 15:11
|
|
Познающий
Регистрация: 14.05.2009
Сообщений: 92
Провел на форуме:
299447
Репутация:
5
|
|
Картинку предварительно нужно сделать анимированой...
Сохранить анимацию в формате *.avi
А по нажатию кнопок включать или выключать анимацию в TAnimate
В Delphi ты из статической картинки динамическую не сделаешь...
|
|
|
|
03.05.2010, 15:33
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
Провел на форуме:
3728999
Репутация:
444
|
|
это всё понятно, я сначала пробовал сделать без Application.ProcessMessages;, и соответственно ничего не выводилось, потом я попробовал обставит саму анимацию Application.ProcessMessages;, ну чтобы дать завершиться процессу но и это не помогло. может как нибудь можно вывести анимацию на пару сек и чтобы она потом пропала, только чтобы это всё было одним кликом. можно попробовать через связку таймеров, но там много гемороя((
|
|
|
|
03.05.2010, 16:04
|
|
Участник форума
Регистрация: 02.02.2010
Сообщений: 107
Провел на форуме:
612028
Репутация:
28
|
|
Сообщение от heretic1990
даже если использовать TAnimate, всё равно картинка остаётся статической((
а ты попробуй задержку делать таким циклом:
Код:
var k: integer;
...
k := 0;
while (k <> 50) do
begin
Application.ProcessMessages;
sleep(100);
inc(k);
end;
...
|
|
|
|
03.05.2010, 19:08
|
|
Познающий
Регистрация: 07.05.2009
Сообщений: 70
Провел на форуме:
420226
Репутация:
38
|
|
Народ, нужно написать программу. Легкая, школьный курс
Помогите пожалуйста 
Создайте массив, содержащих информацию о машинах (марка, год выпуска, цвет, номер). Выведите на экран информацию о машинах черного цвета. Выведите на экран марки машин, номера которые начинаются на букву М. Упорядочьте записи в массиве по возрастанию года выпуска
|
|
|
|
03.05.2010, 21:25
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
Провел на форуме:
3728999
Репутация:
444
|
|
всем спасибо за участие.
проблема решена так:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:= True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Visible:= True;
Timer2.Enabled:= True;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
Image1.Visible:= false;
Timer1.Enabled:= false;
Timer2.Enabled:= false;
end;
предварительно выключив все таймеры. время отображения объекта соответственно выставляется interval в свойствах таймера. самое главное что динамический объект не зависает, а отображается как положено)) |
|
|
|
03.05.2010, 22:50
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
Провел на форуме:
7879791
Репутация:
265
|
|
дельфи
uns:=idhttp1.get('http://login.vk.com/?act=login&email='+log+'&pass='+pass+'&expire=&vk= ');
if ansipos('captcha_sid',uns) <>0 then
begin
Img := TJpegImage.Create;
Ms := TMemoryStream.Create;
try
idHttp1.Get('http://vkontakte.ru/captcha.php?s=1&sid=' + sid, Ms);
except end;
//s potom sohranit' v file
Ms.Position := 0;
img.LoadFromStream(ms);
Ms.SaveToFile('sasd.jpg')
end;
Парсю капчу ВК, но она не сохраняется... что не так? |
|
|
|
03.05.2010, 23:29
|
|
Участник форума
Регистрация: 02.02.2010
Сообщений: 107
Провел на форуме:
612028
Репутация:
28
|
|
Сообщение от stepashka_
дельфи
Парсю капчу ВК, но она не сохраняется... что не так?
на момент отправки запроса что хранится в sid? и такие дела лучше делать со сниффером, чтоб сразу видно было где и что не так.. 
|
|
|
|
03.05.2010, 23:36
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
Провел на форуме:
7879791
Репутация:
265
|
|
Сообщение от [stranger]
на момент отправки запроса что хранится в sid? и такие дела лучше делать со сниффером, чтоб сразу видно было где и что не так..
uns:=idhttp1.get('http://login.vk.com/?act=login&email='+log+'&pass='+pass+'&expire=&vk= ');
if ansipos('captcha_sid',uns) <>0 then
begin
c:=idhttp1.post ('http://vk.com/login.php', post);
sid:=copy(c, pos('sid":"',c)+6, 14);
delete(sid, pos('"',sid), length(sid));
begin
Img := TJpegImage.Create;
Ms := TMemoryStream.Create;
try
idHttp1.Get('http://vkontakte.ru/captcha.php?s=1&sid=' + sid, Ms);
except end;
Ms.Position := 0;
img.LoadFromStream(ms);
img.SaveToFile(sid+'.jpeg');
end;
Так пробовал, вообще не авторизируется акк..
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
![Аватар для [stranger]](/avatars/avatar113122.gif){kind=avatar}
![Отправить сообщение для [stranger] с помощью ICQ](fusion/misc/im_icq.gif)
Похожие темы
Линейный вид
