УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 628 из 677

628

Опции темы

Поиск в этой теме

Опции просмотра

#6271

23.04.2010, 16:00

astonilya

Новичок

Регистрация: 10.09.2009

Сообщений: 15

Провел на форуме:
43258

Репутация: 1

Здравстуйте,помоги плз решить один вопросс:

Вот пишу icq bot и хочу что бы он мог обрабатывать сразу несколько комманд одновременно, тоесть как я понял делается это через потоки, ток немогу сообразить как...
P.S дайте кто нить пример кода...

#6272

23.04.2010, 16:11

Сredo

Новичок

Регистрация: 17.04.2010

Сообщений: 17

Провел на форуме:
62245

Репутация: 31

Цитата:

Сообщение от astonilya

Ты пользуешься компонентом?Тогда каким именно.

#6273

23.04.2010, 16:14

astonilya

Новичок

Регистрация: 10.09.2009

Сообщений: 15

Провел на форуме:
43258

Репутация: 1

Цитата:

Сообщение от Сredo

Ты пользуешься компонентом?Тогда каким именно.

Ticqclient v1.34
P.S напиши плз icq в ПС есть пару вопроссов...

#6274

23.04.2010, 17:32

stepashka_

Познавший АНТИЧАТ

Регистрация: 09.11.2009

Сообщений: 1,077

Провел на форуме:
7879791

Репутация: 265

Отправить сообщение для stepashka_ с помощью ICQ

Дельфи
Подскажите, есть edit1 edit2 как сделать что бы при нажатии на button данные из edit1 edit2 записывались в тхт файл на сервере? Например www.сайт.ru/акк.txt

#6275

23.04.2010, 17:56

SkyLine32

Участник форума

Регистрация: 01.03.2009

Сообщений: 121

Провел на форуме:
4022236

Репутация: 38

Отправить сообщение для SkyLine32 с помощью ICQ

Отправить сообщение для SkyLine32 с помощью AIM

Отправить сообщение для SkyLine32 с помощью MSN

Отправить сообщение для SkyLine32 с помощью Yahoo

Цитата:

Сообщение от stepashka_

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..

#6276

23.04.2010, 18:29

aydar

Участник форума

Регистрация: 12.11.2009

Сообщений: 160

Провел на форуме:
568182

Репутация: 11

Ребят есть пару вопросов:

1. в мемо записываю какието записи, есть ли кактео ограничения, если доп хочу загрузить в мемо 1лям мыл не зависнет, или лутше все считывать из текстового файла в массив

2.как увеличить скорость загрузки программы?

3. как делаються счетчики элементарные в дельфи и таймер

#6277

23.04.2010, 20:40

SkyLine32

Участник форума

Регистрация: 01.03.2009

Сообщений: 121

Провел на форуме:
4022236

Репутация: 38

Цитата:

Сообщение от stepashka_

вот пример точно будет работать...

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

#6278

23.04.2010, 22:42

JnK

Участник форума

Регистрация: 30.03.2007

Сообщений: 121

Провел на форуме:
188563

Репутация: 52

Цитата:

Сообщение от aydar

1. Лучше массив или StringList, по простой причине не будет отображаться значит скорость больше, но если все же надо отображать, то есть команды вроде как увеличивывают скорость.

PHP код:


		
			
Memo1.Lines.BeginUpdate;

Memo1.Lines.EndUpdate;

2. При запуске грузить минимум, а потом уже подгружать. типа программа, а база мыл и т.д. уже потом.

3. Поток+Цикл+Sleep = таймер

#6279

23.04.2010, 22:45

JnK

Участник форума

Регистрация: 30.03.2007

Сообщений: 121

Провел на форуме:
188563

Репутация: 52

Цитата:

Сообщение от SkyLine32

не помогло... компоненты установил, но их не видно ((

НУ СКАЖИТЕ КАК ПОДКЛЮЧИТЬСЯ К БАЗЕ MYSQL
ПРОБОВАЛ ЭТУ СТАТЬЮ, ВЫДАЛО ОШИБКУ ЧТО ПРОБЛЕМЫ С ФАЙЛОМ. ПИШЕТ "НЕВОЗМОЖНО ЗАГРУЗИТЬ libmysql.dll", ХОТЯ ЭТОТ ФАЙЛ ЕСТЬ В ПАПКЕ С ПРОГОЙ... И ЧЁ ДЕЛАТЬ ХЗ

На форумах полазий, там есть измененый libmysql.dll который работает на ура.
Просто для MySQL 4.xx не подходит файл от 5, так же как для 5 файл от 5.1. Но есть чуть измененые которые работают и на 5 и на 4 версиях сервера.