[Помогите!] Проблема с авто обновлениемм

[xloctis]

PHP код:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, shellapi,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Menus,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit: TEdit;
    Memo: TMemo;
    OpenDialog: TOpenDialog;
    SaveDialog: TSaveDialog;
    Button2: TButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    about1: TMenuItem;
    IdHTTP: TIdHTTP;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure about1Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.about1Click(Sender: TObject);
begin
application.MessageBox('Программа автообновления написана Xloctis','ver 0.01(4412)', 0)
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
with opendialog do
if execute then
memo.lines.LoadFromFile(filename);
opendialog.Files.Free;
FreeOnRelease;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i: Integer;
begin
 for i:=0 to Memo.Lines.Count-1 do
  begin
   if pos('cg_fov', Memo.Lines[i])<>0 then
    begin
     memo.Lines[i]:='cg_fov "120"';
     memo.lines.SaveToFile(extractfilepath(opendialog.filename) + 'q3config.cfg');
    end;
  end;
end;

procedure TForm1.N5Click(Sender: TObject);
var s:string; stream:TMemoryStream;
begin
s:=IdHTTP.Get('http://dl.dropbox.com/u/68217340/vers.txt');
if label1.Caption=s then application.MessageBox('У вас самая новая версия оверпатчера','ver0.01(4412)',0) else
TMemoryStream.Create;
IdHTTP.Get('http://dl.dropbox.com/u/68217340/lvlup.exe',stream);
Stream.SaveToFile('lvlup.exe');
Stream.Free;
shellexecute(Form1.Handle, 'open','lvlup.exe',nil, nil, SW_SHOWNORMAL);
end;
end. 


вот собственно исходник программы. проблема access violation at adress ... как исправить?

[R.A.Z.O.R.]

Цитата: Сообщение от xloctis вот собственно исходник программы. проблема access violation at adress ... как исправить?

Тебе в битву экстрасенсов! Какая ошибка? На какой строке? Хотя уже и так вижу.

TMemoryStream.Create;

исправь на

Stream := TMemoryStream.Create;

P.S. Прежде чем брать за основу какой-то исходник, разберись в нем.

[xloctis]

Цитата: Сообщение от R.A.Z.O.R. Тебе в битву экстрасенсов! Какая ошибка? На какой строке? Хотя уже и так вижу. TMemoryStream.Create; исправь на Stream := TMemoryStream.Create; P.S. Прежде чем брать за основу какой-то исходник, разберись в нем.

не помогло) теперь ошибку подключения выдает

[Skrillex3]

Цитата: Сообщение от xloctis не помогло) теперь ошибку подключения выдает

ты хоть http создал?

[xloctis]

Цитата: Сообщение от Skrillex3 ты хоть http создал?

idhttp добавил, так причем lvlup.exe пашет, а апдейт через эту нет.

[R.A.Z.O.R.]

Цитата: Сообщение от xloctis не помогло) теперь ошибку подключения выдает

Читай выше. Что я перед кодом написал

[xloctis]

Цитата: Сообщение от R.A.Z.O.R. Читай выше. Что я перед кодом написал

как отследить строку с ошибкой то? Прога компилится нормально.

[R.A.Z.O.R.]

Цитата: Сообщение от xloctis как отследить строку с ошибкой то? Прога компилится нормально.

Повторю. Какая ошибка? Их больше 50!

[xloctis]

Цитата: Сообщение от R.A.Z.O.R. Повторю. Какая ошибка? Их больше 50!

Exception EInvalidPointer in module pr1.exe at 00004F11. Invalid pointer operation. С обновлением проблема исправлена спс. А вот эта происходит после закрытия программы, если был патч.

[R.A.Z.O.R.]

Form1.Handle в ShellExecute попробуй заменить на 0

[xloctis]

Exception EInvalidPointer in module pr1.exe at 00004F11. Invalid pointer operation. Выходит после выключения, если был использован

PHP код:

procedure TForm1.Button2Click(Sender: TObject);
var i: Integer;
begin
 for i:=0 to Memo.Lines.Count-1 do
  begin
   if pos('cg_fov', Memo.Lines[i])<>0 then
    begin
     memo.Lines[i]:='cg_fov "120"';
     memo.lines.SaveToFile(extractfilepath(opendialog.filename) + 'q3config.cfg');
    end;
  end;
end; 


как такие ошибки в общем устранять?

[Skrillex3]

Цитата: Сообщение от xloctis Exception EInvalidPointer in module pr1.exe at 00004F11. Invalid pointer operation. Выходит после выключения, если был использован PHP код: procedure TForm1.Button2Click(Sender: TObject); var i: Integer; begin for i:=0 to Memo.Lines.Count-1 do begin if pos('cg_fov', Memo.Lines[i])<>0 then begin memo.Lines[i]:='cg_fov "120"'; memo.lines.SaveToFile(extractfilepath(opendialog.f ilename) + 'q3config.cfg'); end; end; end; как такие ошибки в общем устранять?

тебя когда нибудь учили в что в делфи есть такая фишка называется коментарий {} , между этими двумя символами прописываешь процедуру и в итоге компилятор не читает её -это называется метод "втыка" но темне-менее является самым ефективным