ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
22.04.2010, 23:11
|
|
Участник форума
Регистрация: 01.03.2009
Сообщений: 121
Провел на форуме:
4022236
Репутация:
38
|
|
Сообщение от dark-klin
Товарищи может кто нибудь решить первую задачу PASCAL ABC с FOR и WHILE http://ipicture.ru/upload/100422/85oWRRrV7g.jpg
PHP код:
uses crt;
var
n,i:integer;
s:real;
begin
clrscr;
writeln('Vvedite N');
readln(n);
i:=1;
while i<=n do
begin
s:=sqrt(s+sqrt(2*i));
i:=i+1;
end;
writeln('s=',s:3:3);
readln;
end.
Последний раз редактировалось SkyLine32; 22.04.2010 в 23:22..
|
|
|
23.04.2010, 12:47
|
|
Участник форума
Регистрация: 12.11.2009
Сообщений: 160
Провел на форуме:
568182
Репутация:
11
|
|
Ребят есть пару вопросов:
1. в мемо записываю какието записи, есть ли кактео ограничения, если доп хочу загрузить в мемо 1лям мыл не зависнет, или лутше все считывать из текстового файла в массив
2.как увеличить скорость загрузки программы?
3. как делаються счетчики элементарные в дельфи и таймер
|
|
|
|
23.04.2010, 16:00
|
|
Новичок
Регистрация: 10.09.2009
Сообщений: 15
Провел на форуме:
43258
Репутация:
1
|
|
Здравстуйте,помоги плз решить один вопросс:
Вот пишу icq bot и хочу что бы он мог обрабатывать сразу несколько комманд одновременно, тоесть как я понял делается это через потоки, ток немогу сообразить как...
P.S дайте кто нить пример кода...
|
|
|
|
23.04.2010, 16:11
|
|
Новичок
Регистрация: 17.04.2010
Сообщений: 17
Провел на форуме:
62245
Репутация:
31
|
|
Сообщение от astonilya
Здравстуйте,помоги плз решить один вопросс:
Вот пишу icq bot и хочу что бы он мог обрабатывать сразу несколько комманд одновременно, тоесть как я понял делается это через потоки, ток немогу сообразить как...
P.S дайте кто нить пример кода...
Ты пользуешься компонентом?Тогда каким именно.
|
|
|
|
23.04.2010, 16:14
|
|
Новичок
Регистрация: 10.09.2009
Сообщений: 15
Провел на форуме:
43258
Репутация:
1
|
|
Сообщение от Сredo
Ты пользуешься компонентом?Тогда каким именно.
Ticqclient v1.34
P.S напиши плз icq в ПС есть пару вопроссов...
|
|
|
|
23.04.2010, 17:32
|
|
Познавший АНТИЧАТ
Регистрация: 09.11.2009
Сообщений: 1,077
Провел на форуме:
7879791
Репутация:
265
|
|
Дельфи
Подскажите, есть edit1 edit2 как сделать что бы при нажатии на button данные из edit1 edit2 записывались в тхт файл на сервере? Например www.сайт.ru/акк.txt
|
|
|
|
23.04.2010, 17:56
|
|
Участник форума
Регистрация: 01.03.2009
Сообщений: 121
Провел на форуме:
4022236
Репутация:
38
|
|
Сообщение от stepashka_
Дельфи
Подскажите, есть edit1 edit2 как сделать что бы при нажатии на button данные из edit1 edit2 записывались в тхт файл на сервере? Например www.сайт.ru/акк.txt
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
begin
IdFTP1.Host := 'host';
IdFTP1.Username := 'login';
IdFTP1.Password := 'pass';
IdFTP1.Connect(true);
IdFTP1.Put(Edit1.Text,'test.txt' ,false);
IdFTP1.Disconnect;
end;
компонент IdFTP1 и антифриз
Последний раз редактировалось SkyLine32; 23.04.2010 в 18:01..
|
|
|
|
23.04.2010, 20:40
|
|
Участник форума
Регистрация: 01.03.2009
Сообщений: 121
Провел на форуме:
4022236
Репутация:
38
|
|
Сообщение от stepashka_
Дельфи
Подскажите, есть edit1 edit2 как сделать что бы при нажатии на button данные из edit1 edit2 записывались в тхт файл на сервере? Например www.сайт.ru/акк.txt
вот пример точно будет работать...
PHP код:
Procedure TForm1.Button1Click(Sender: TObject);
var
F : TextFile;
S : String;
Begin
idFTP1.Host := 'Host';
idFTP1.Port := 21;
idFTP1.Username := 'Username';
idFTP1.Password := 'Password';
idFTP1.Connect;
AssignFile(F, 'test.txt');
Rewrite(F);
S := Edit1.Text;
WriteLn(F,S);
CloseFile(F);
IdFTP1.Put('test.txt', 'test.txt', False);
End;
procedure TForm1.Button2Click(Sender: TObject);
begin
IdFTP1.Disconnect;
end;
и не забудь поставить passive = true
|
|
|
|
23.04.2010, 18:29
|
|
Участник форума
Регистрация: 12.11.2009
Сообщений: 160
Провел на форуме:
568182
Репутация:
11
|
|
Ребят есть пару вопросов:
1. в мемо записываю какието записи, есть ли кактео ограничения, если доп хочу загрузить в мемо 1лям мыл не зависнет, или лутше все считывать из текстового файла в массив
2.как увеличить скорость загрузки программы?
3. как делаються счетчики элементарные в дельфи и таймер
|
|
|
|
23.04.2010, 22:42
|
|
Участник форума
Регистрация: 30.03.2007
Сообщений: 121
Провел на форуме:
188563
Репутация:
52
|
|
Сообщение от aydar
Ребят есть пару вопросов:
1. в мемо записываю какието записи, есть ли кактео ограничения, если доп хочу загрузить в мемо 1лям мыл не зависнет, или лутше все считывать из текстового файла в массив
2.как увеличить скорость загрузки программы?
3. как делаються счетчики элементарные в дельфи и таймер
1. Лучше массив или StringList, по простой причине не будет отображаться значит скорость больше, но если все же надо отображать, то есть команды вроде как увеличивывают скорость.
PHP код:
Memo1.Lines.BeginUpdate;
Memo1.Lines.EndUpdate;
2. При запуске грузить минимум, а потом уже подгружать. типа программа, а база мыл и т.д. уже потом.
3. Поток+Цикл+Sleep = таймер
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид