|
Проблема с авто обновлениемм - Вопросы и ответы, обсуждения - Ваши вопросы по Pascal/Delphi только в данном разделе |
04.04.2012, 14:33
|
#1
|
|
|
|
Разведчик
|
Регистрация: 04.04.2012
Сообщений: 0
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Проблема с авто обновлениемм
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 ... как исправить?
|
|
|
04.04.2012, 18:29
|
#2
|
|
|
|
Разведчик
|
Регистрация: 19.02.2012
Сообщений: 36
Популярность: 447
Сказал(а) спасибо: 25
Поблагодарили 50 раз(а) в 40 сообщениях
|
Re: Проблема с авто обновлениемм
|
|
|
04.04.2012, 20:00
|
#3
|
|
|
|
Разведчик
|
Регистрация: 04.04.2012
Сообщений: 0
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Проблема с авто обновлениемм
не помогло) теперь ошибку подключения выдает
|
|
|
04.04.2012, 20:25
|
#4
|
|
|
|
Пехотинец
|
Регистрация: 23.03.2012
Сообщений: 83
Популярность: 908
Сказал(а) спасибо: 102
Поблагодарили 144 раз(а) в 61 сообщениях
|
Re: Проблема с авто обновлениемм
|
|
|
04.04.2012, 20:35
|
#5
|
|
|
|
Разведчик
|
Регистрация: 04.04.2012
Сообщений: 0
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Проблема с авто обновлениемм
Последний раз редактировалось xloctis; 04.04.2012 в 22:54.
|
|
|
05.04.2012, 12:50
|
#7
|
|
|
|
Разведчик
|
Регистрация: 04.04.2012
Сообщений: 0
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Проблема с авто обновлениемм
|
|
|
05.04.2012, 17:02
|
#9
|
|
|
|
Разведчик
|
Регистрация: 04.04.2012
Сообщений: 0
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Проблема с авто обновлениемм
Последний раз редактировалось xloctis; 05.04.2012 в 19:43.
|
|
|
05.04.2012, 21:36
|
#10
|
|
|
|
Разведчик
|
Регистрация: 19.02.2012
Сообщений: 36
Популярность: 447
Сказал(а) спасибо: 25
Поблагодарили 50 раз(а) в 40 сообщениях
|
Re: Проблема с авто обновлениемм
Form1.Handle в ShellExecute попробуй заменить на 0
|
|
|
06.04.2012, 00:24
|
#11
|
|
|
|
Разведчик
|
Регистрация: 04.04.2012
Сообщений: 0
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Проблема с авто обновлениемм
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;
как такие ошибки в общем устранять?
|
|
|
06.04.2012, 17:33
|
#12
|
|
|
|
Пехотинец
|
Регистрация: 23.03.2012
Сообщений: 83
Популярность: 908
Сказал(а) спасибо: 102
Поблагодарили 144 раз(а) в 61 сообщениях
|
Re: Проблема с авто обновлениемм
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 08:59.
|
|