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

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

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

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

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

Опции темы

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

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

#611

14.09.2007, 17:15

Killerkod

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

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

Сообщений: 178

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

Репутация: 239

Я просто другой код вставил

Код:

ProgressBar1.Position := ProgressBar1.Position + 1;

Может из-за этого надо тот удалить...
Да и еще, если добавить тот код, то ProgressBar будет заполняться до бесконечности! Он заполнится, потом с начала и т.д....

Короче вместо этого кода:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.StepIt;
if ProgressBar1.Position = ProgressBar1.Max then Form2.Show;
end;

Я вставил этот:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   ProgressBar1.Position := ProgressBar1.Position + 1;
   if ProgressBar1.Position = 100 then Form4.Show;
end;

И теперь как только заполняется ProgressBar вылазиет другое окно. А то в первом случае не вылазило((

Последний раз редактировалось Killerkod; 14.09.2007 в 17:43..

#612

14.09.2007, 21:57

undewaternemo

Познающий

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

Сообщений: 57

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

Репутация: 1

Привет
подскажите кодом пожалуйста как удалить ехе после выполнения - чтобы запустил прогу - она отработала и удалилась
и есть ли у кого пример выдирания с машинки разичных данных фтп - мыла - аси и так далее
p.s. по второму вопросу - может просто знаете паблик сорци где есть реализация - посмотрю что и как.
Спасибо

#613

14.09.2007, 22:07

Fen-Omen

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

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

Сообщений: 220

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

Репутация: 234

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

Цитата:

и есть ли у кого пример выдирания с машинки разичных данных фтп - мыла - аси и так далее
p.s. по второму вопросу - может просто знаете паблик сорци где есть реализация - посмотрю что и как.
Спасибо

Паблик сорцы есть всюду, и даже в этом разделе...

#614

15.09.2007, 08:31

infernal-team

Познающий

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

Сообщений: 56

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

Репутация: 8

[Error] Unit4.pas(86): Undeclared identifier: 'MessageParts'
[Fatal Error] Project1.dpr(8): Could not compile used unit 'Unit4.pas'

Что означает эта ошибкА?

#615

15.09.2007, 09:45

Xserg

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

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

Сообщений: 135

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

Репутация: 726

Цитата:

Сообщение от infernal-team

[Error] Unit4.pas(86): Undeclared identifier: 'MessageParts'
[Fatal Error] Project1.dpr(8): Could not compile used unit 'Unit4.pas'

Что означает эта ошибкА?

Не русским же языком написано:

[Fatal Error] Project1.dpr(8): Could not compile used unit 'Unit4.pas'
Неисправимая ошибка в строке 8 , невозможно скомпилировать используемую часть 'Unit4.pas'
Unit4 in 'Unit4.pas' {Form4};
[Error] Unit4.pas(86): Undeclared identifier: 'MessageParts'
Т.к. неопределенный идентификатор MessageParts в строке 86
Который либо вообще не определен, либо определен в UnitХ.pas и не известен в 'Unit4.pas'
Используй uses UnitX (X номер Unit где определена MessageParts) в 'Unit4.pas'

Зы пока писал сам запутался.

#616

15.09.2007, 10:04

infernal-team

Познающий

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

Сообщений: 56

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

Репутация: 8

Код:

[Error] Unit4.pas(86): Undeclared identifier: 'TIdAttachmentFile'
[Error] Unit4.pas(86): Missing operator or semicolon
[Error] Unit4.pas(86): Incompatible types: 'TComponent' and 'TIdMessageParts'
[Fatal Error] Project1.dpr(8): Could not compile used unit 'Unit4.pas'

Вот другая поблема ошибка вылетает из за этой строки:
TIdAttachmentFile.Create(M.MessageParts, OpenDialog1.FileName);
что я сделал не так помоги пожалуйста.