24.12.2009, 23:36
|
|
Новичок
Регистрация: 16.11.2008
Сообщений: 27
С нами:
9201836
Репутация:
6
|
|
Сообщение от Fireblade
Как сделать в дельфи чтоб текст в Label выводился не сразу, а через какой-нибудь промежуток времени? Пример плиз приведите ))
процедура sleep(....),где указывается время задержки в милисек.,в данном примере задержка на 1 сек
procedure TForm1.Button1Click(Sender: TObject);
begin
sleep(1000);
label1.Caption:='xaxaxa';
end;
|
|
|
24.12.2009, 23:47
|
|
Познающий
Регистрация: 31.03.2009
Сообщений: 53
С нами:
9007085
Репутация:
11
|
|
DimkO, спасибо!!
|
|
|
|
25.12.2009, 12:58
|
|
Познающий
Регистрация: 14.05.2009
Сообщений: 92
С нами:
8944114
Репутация:
5
|
|
Всем доброго времени суток!
Подскажите как спрятать программку с панели задач, но чтобы форма была видна.
По такому принципу работают виджеты.
Заранее спасибо!
P.S Так пробовал но не полочилось _http://delphi-faq.zoxt.net/143.htm
Последний раз редактировалось iGlass; 25.12.2009 в 13:03..
|
|
|
|
25.12.2009, 13:08
|
|
Познающий
Регистрация: 15.12.2009
Сообщений: 81
С нами:
8634231
Репутация:
24
|
|
Сообщение от iGlass
Подскажите как спрятать программку с панели задач, но чтобы форма была видна.
FormOnShow
Код:
ShowWindow(Application.Handle, sw_Hide);
|
|
|
|
25.12.2009, 13:17
|
|
Познающий
Регистрация: 14.05.2009
Сообщений: 92
С нами:
8944114
Репутация:
5
|
|
Сообщение от patcher
FormOnShow
Код:
ShowWindow(Application.Handle, sw_Hide);
Спасибо =) Не подумал в онШов засунуть ^^
|
|
|
|
Indy в потоке - утечка памяти |
25.12.2009, 13:30
|
|
Banned
Регистрация: 25.11.2007
Сообщений: 62
С нами:
9715564
Репутация:
89
|
|
Indy в потоке - утечка памяти
Доброго времени суток!
Имею проблему с утечкой памяти.
Код потока:
Код:
procedure Test.Execute;
var
http : Tidhttp;
s : string;
compressor : tIdCompressorZLib;
begin
http := Tidhttp.Create; http.Request.AcceptEncoding := 'gzip, deflate';
compressor := tIdCompressorZLib.Create; http.Compressor := compressor;
s := http.get ('http://yandex.ru');
http.Free; compressor.Free; exit;
end;
После остановки, по идее, он должен освободить занимаемую память. Но этого не происходит - уже через час бесперебойной работы программы она занимает 50-60 мб. оперативной памяти, против 2 мб. при запуске. Чем дольше работает - тем больше кушает.
Помогите разобраться в проблеме, пожалуйста - программы должны сутками бесперебойно работать, а этого не выходит. |
|
|
|
26.12.2009, 06:41
|
|
Познающий
Регистрация: 19.02.2009
Сообщений: 83
С нами:
9065564
Репутация:
50
|
|
Всё получилось спасибо, но как вывести в мемо код страницы, сейчас в мемо какие то иероглифы..
а так не катит?:
Код:
uses IdHttp;
...
var s:string;h:tIdHttp;
begin
h:=tIdHttp.Create(nil);
memo1.Lines.Clear;
s:=h.Get('http://antichat.ru');
memo1.Lines.Add(s);
h.Free;
...
имхо самый простой и удобный вариант на делфи
|
|
|
|
26.12.2009, 11:27
|
|
Познающий
Регистрация: 21.11.2009
Сообщений: 77
С нами:
8668804
Репутация:
29
|
|
Сообщение от Markus_13
а так не катит?:
Код:
uses IdHttp;
...
var s:string;h:tIdHttp;
begin
h:=tIdHttp.Create(nil);
memo1.Lines.Clear;
s:=h.Get('http://antichat.ru');
memo1.Lines.Add(s);
h.Free;
...
имхо самый простой и удобный вариант на делфи нет, нужно на winsock
|
|
|
|
26.12.2009, 18:16
|
|
Познающий
Регистрация: 24.03.2009
Сообщений: 31
С нами:
9017612
Репутация:
2
|
|
пмогите подалуста как мне использовать функцию
function BinToInt(Value: string): Integer;
var
i, iValueSize: Integer;
begin
Result := 0;
iValueSize := Length(Value);
for i := iValueSize downto 1 do
if Value[i] = '1' then Result := Result + (1 shl (iValueSize - i));
end;
в процедуре
procedure TForm1.Button1Click(Sender: TObject);
???!!! понимаю google.ru ответил бы на мой вопрос но вот седян он не хочет давать мне ответа ...
|
|
|
|
26.12.2009, 20:12
|
|
Познающий
Регистрация: 02.06.2009
Сообщений: 67
С нами:
8916612
Репутация:
54
|
|
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Caption := IntToStr(BinToInt('10001010'));
end;
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
