ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
25.11.2007, 22:40
|
|
Новичок
Регистрация: 24.11.2007
Сообщений: 2
Провел на форуме:
6801
Репутация:
0
|
|
~utQ Ты хочешь в реальном времени получать картинки, т.е. их обновлять, или просто получить скрин удаленного рабочего стола???
Да, хочу в реальном времени.
Хотел узнать как раз про потоки, спасибо.
Код:
Image1.Bitmap.SaveToStream (ImgStream);
Ошибочка. Должно быть так:
Код:
Image1.Picture.Bitmap.SaveToStream (ImgStream);
Последний раз редактировалось ~utQ; 25.11.2007 в 22:56..
|
|
|
25.11.2007, 22:57
|
|
Постоянный
Регистрация: 16.04.2007
Сообщений: 398
Провел на форуме:
3371897
Репутация:
1462
|
|
кам кажись Image1.Picture.Bitmap
|
|
|
|
26.11.2007, 09:58
|
|
Познающий
Регистрация: 27.03.2007
Сообщений: 95
Провел на форуме:
244822
Репутация:
37
|
|
Всем здрасте!
Поиск не дал желаемого результата по тому вопросу кот. у меня возник или я просто долблюсь в очи.
Вопрос такой, подскажите как можно реализовать следующее:
Написал небольшую прогу (сонсольную), дак вот как реализовать мне запуск с параметрами из строки (пример: c:\soft.exe -?),то выдал мне например по этой команде помощь, описание кот. находится в проге.
Всем спасибо!
|
|
|
|
26.11.2007, 11:26
|
|
Участник форума
Регистрация: 10.08.2006
Сообщений: 147
Провел на форуме:
404152
Репутация:
94
|
|
Сообщение от cyber$nake
Всем здрасте!
Поиск не дал желаемого результата по тому вопросу кот. у меня возник или я просто долблюсь в очи.
Вопрос такой, подскажите как можно реализовать следующее:
Написал небольшую прогу (сонсольную), дак вот как реализовать мне запуск с параметрами из строки (пример: c:\soft.exe -?),то выдал мне например по этой команде помощь, описание кот. находится в проге.
Всем спасибо!
Код:
program soft;
{$APPTYPE CONSOLE}
uses windows;
var
parameter: string;
begin
parameter:=ParamStr(1);
if parameter = '/message' then
Writeln('Parameter /message.')
else
Writeln('No actual parameters.');
write('Press key Enter for Exit');
readln;
end.
думаю коментарии излишни.
Последний раз редактировалось Exile1985; 28.11.2007 в 10:24..
|
|
|
|
26.11.2007, 12:00
|
|
Познающий
Регистрация: 27.03.2007
Сообщений: 95
Провел на форуме:
244822
Репутация:
37
|
|
Сообщение от Exile1985
Код:
program soft;
{$APPTYPE CONSOLE}
uses windows;
var
parameter: string;
begin
parameter:=ParamStr(1);
if parameter = '/message' then
begin
Writeln('Parameter /message.');
end
else
begin
Writeln('No actual parameters.');
end;
write('Press key Enter for Exit');
readln;
end.
думаю коментарии излишни.
спасибо большое за пример, сам допер (тупанул с утреца немнога-не выспался)
|
|
|
|
27.11.2007, 20:17
|
|
Участник форума
Регистрация: 08.11.2006
Сообщений: 208
Провел на форуме:
1038169
Репутация:
184
|
|
GetFreeDiskSpace(). что надо подключить чтобы заработало, иначе никак... я туплю..
|
|
|
|
27.11.2007, 22:44
|
|
Постоянный
Регистрация: 16.04.2007
Сообщений: 398
Провел на форуме:
3371897
Репутация:
1462
|
|
а если через fso?
Код:
function DiskSpace(AFileName : string) : int;
var
fso, drv : OleVariant;
begin
fso := CreateOleObject('Scripting.FileSystemObject');
drv := fso.GetDrive(fso.GetDriveName(AFileName));
DiskSpace := drv.AvailableSpace;
end;
|
|
|
|
Таймер в консольном приложении |
29.11.2007, 07:49
|
|
Познающий
Регистрация: 27.03.2007
Сообщений: 95
Провел на форуме:
244822
Репутация:
37
|
|
Таймер в консольном приложении
возникла такая проблема:
пишу например:
Код:
program MyApp;
{$APPTYPE CONSOLE}
uses
ExtCtrls;
var
Timer: TTimer;
procedure MyAppOnTimer(Sender: TObject);
begin
{}
end;
begin
Timer := TTimer.Create(nil);
Timer.OnTimer := MyAppOnTimer; //вот здесь ошибка.
end;
При компиляции выдает ошибку -
"Incompatible types: 'method pointer and regular procedure'"
Как сделать правильно? |
|
|
|
29.11.2007, 10:41
|
|
Познающий
Регистрация: 27.03.2007
Сообщений: 95
Провел на форуме:
244822
Репутация:
37
|
|
Сообщение от cyber$nake
возникла такая проблема:
пишу например:
Код:
program MyApp;
{$APPTYPE CONSOLE}
uses
ExtCtrls;
var
Timer: TTimer;
procedure MyAppOnTimer(Sender: TObject);
begin
{}
end;
begin
Timer := TTimer.Create(nil);
Timer.OnTimer := MyAppOnTimer; //вот здесь ошибка.
end;
При компиляции выдает ошибку -
"Incompatible types: 'method pointer and regular procedure'"
Как сделать правильно?
получилось вот таким способом, но проц сильно грузит:
Код:
type
....
TMyTimer = class(TObject)
timTimer: TTimer;
booTrigger: boolean;
procedure timTimerTimer(Sender: TObject);
end;
....
procedure TMyTimer.timTimerTimer(Sender: TObject);
begin
booTrigger := true;
...
end;
procedure TimerExample;
var
timDemo: TMyTimer;
begin
with timDemo do
begin
timDemo := TMyTimer.Create;
timTimer := TTimer.Create(nil);
booTrigger := false;
timTimer.Interval:=30000;
timTimer.Enabled:=true;
timTimer.OnTimer := timDemo.timTimerTimer;
repeat
Application.ProcessMessages;
until booTrigger;
Free;
end;
end;
может ктонить предложит по проще и с меньшей нагрузкой на проц?
|
|
|
|
29.11.2007, 14:44
|
|
Новичок
Регистрация: 14.06.2007
Сообщений: 7
Провел на форуме:
30728
Репутация:
34
|
|
если уж сильно надо использовать TTimer (я бы не стал этого делать в консольке), то можно так выкрутиться:
Код:
program MyApp;
{$APPTYPE CONSOLE}
uses
ExtCtrls;
type
TSomeObj = class
class procedure MyProc(Sender:TObject);
end;
var
Timer: TTimer;
class procedure TSomeObj.MyProc(Sender: TObject);
begin
{}
end;
begin
Timer := TTimer.Create(nil);
// Timer.OnTimer := MyAppOnTimer; //вот здесь ошибка.
Timer.OnTimer := TSomeObj.MyProc;
end;
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
