Удаленное выключение

[Пепел Феникса]

там не нужно ничего парсить.
просто прочесть строку файла(если скачиваете в файл) а с этим справятся и паскалевский TextFile/Read.

[artbotva]

Сообщение от Пепел Феникса

там не нужно ничего парсить.
просто прочесть строку файла(если скачиваете в файл) а с этим справятся и паскалевский TextFile/Read.

uses 
  URLMon, ShellApi; 

function DownloadFile(SourceFile, DestFile: string): Boolean; 
begin 
  try 
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0; 
  except 
    Result := False; 
  end; 
end; 

procedure TForm1.Timer1Timer(Sender: TObject); 
const 
SourceFile = 'http://lanswitch.bl.ee/lol.txt'; 
DestFile = 'c:\temp\lol.txt'; 
begin 
  if DownloadFile(SourceFile, DestFile) then 
  begin 
    memo1.Lines.LoadFromFile(c:\temp\lol.txt);
  end 
end;

Ну вот код, как мне его оптимизировать под таймер?
И тыкните в ошибки пжлста)

[artbotva]

Сообщение от Пепел Феникса

там не нужно ничего парсить.
просто прочесть строку файла(если скачиваете в файл) а с этим справятся и паскалевский TextFile/Read.

Все разобрался со всем. Но вот беда, почему то если изначально на сайте в файле был 0, а потом сменился на 1. То в едите так и остается 0(( вот код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, URLMon, ShellApi, StdCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer; 
    Edit1: TEdit;
    Timer2: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function DownloadFile(SourceFile, DestFile: string): Boolean; 
begin 
  try
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0; 
  except 
    Result := False; 
  end; 
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
ST: TStringList;
  const
SourceFile = 'http://lanswitch.bl.ee/lol.txt';
DestFile = 'c:\lol.txt';
begin 
  if DownloadFile(SourceFile, DestFile) then
  begin
  ST := TStringList.Create;
  ST.LoadFromFile('c:\lol.txt');
  Edit1.Text := ST.Strings[0];
  ST.Free;
  end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
if Edit1.Text = '1' then
ShellExecute(handle, nil,'shutdown',' -s -t 00','', SW_SHOWNORMAL)
else DeleteFile('c:\lol.txt');
end;

end.

[FaTaL]

Слишком много у тебя ненужного кода, да и второй таймер ни к чему.
Лучше сделай примерно так:

procedure TForm1.Timer1Timer(Sender: TObject);
var
ST: TStringList;
  const
SourceFile = 'http://lanswitch.bl.ee/lol.txt';
DestFile = 'c:\lol.txt';
begin 
  if DownloadFile(SourceFile, DestFile) then
  begin
  ST := TStringList.Create;
  ST.LoadFromFile('c:\lol.txt');
  if ST.Strings[0]='1' then
    begin
      ST.Free;
      ShellExecute(handle, nil,'shutdown',' -s -t 00','', SW_SHOWNORMAL);
      Form1.Close;
    end
  else DeleteFile('c:\lol.txt');
  ST.Free;
  end;
end;

[artbotva]

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

Слишком много у тебя ненужного кода, да и второй таймер ни к чему.
Лучше сделай примерно так:

procedure TForm1.Timer1Timer(Sender: TObject);
var
ST: TStringList;
  const
SourceFile = 'http://lanswitch.bl.ee/lol.txt';
DestFile = 'c:\lol.txt';
begin 
  if DownloadFile(SourceFile, DestFile) then
  begin
  ST := TStringList.Create;
  ST.LoadFromFile('c:\lol.txt');
  if ST.Strings[0]='1' then
    begin
      ST.Free;
      ShellExecute(handle, nil,'shutdown',' -s -t 00','', SW_SHOWNORMAL);
      Form1.Close;
    end
  else DeleteFile('c:\lol.txt');
  ST.Free;
  end;
end;

Спасибо за ответ!
Но теперь lol.txt не скачивается на диск, и соответственно поле остается пустым.

[AnryKZKZ]

Глянь в моей ветке "мультимедиа" - "корректное включение и выключение камеры". http://programmersforum.ru/showthread.php?t=258771
Там есть исходник - думаю будет полезен для решения твоей задачи.

[artbotva]

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

Глянь в моей ветке "мультимедиа" - "корректное включение и выключение камеры". http://programmersforum.ru/showthread.php?t=258771
Там есть исходник - думаю будет полезен для решения твоей задачи.

Я уже все решил, но не смог правда избавиться от таймеров(
Вот код кстати:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, URLMon, ShellApi, StdCtrls, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, IdAntiFreezeBase,
  IdAntiFreeze;

type
  TForm1 = class(TForm)
    Timer1: TTimer; 
    Edit1: TEdit;
    IdHTTP1: TIdHTTP;
    Timer2: TTimer;
    Timer3: TTimer;
    IdAntiFreeze1: TIdAntiFreeze;
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var mem:TMemoryStream;
begin
   mem := TMemoryStream.Create;
   try
        IdHTTP1.Get('http://lanswitch.bl.ee/lol.txt',mem);
        mem.SaveToFile('c:\lol.txt');
   finally
        mem.Destroy;
   end;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
var
ST: TStringList;
begin
  ST := TStringList.Create;
  ST.LoadFromFile('c:\lol.txt');
  Edit1.Text := ST.Strings[0];
  ST.Free;
  end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
if Edit1.Text = '1' then
ShellExecute(handle, nil,'shutdown',' -s -t 00','', SW_SHOWNORMAL);
end;





procedure TForm1.FormShow(Sender: TObject);
begin
ShowWindow(Application.Handle, sw_Hide);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.Showmainform:=false;
end;

end.

[AnryKZKZ]

Вообще то в вашей задаче одного таймера более чем достаточно. Зачем вы используете 3шт - ума не приложу...