Форум: "Основная";
Текущий архив: 2003.03.17;
Скачать: [xml.tar.bz2];
ВнизИ просто проблема №2 Найти похожие ветки
← →
Monak (2003-03-04 23:39) [0]Дубль 2! Почему возникает AccessViolation именно в конце процедуры:
procedure TfMainForm.FlatButton1Click(Sender: TObject);
var
Client_: TWSAData;
Host:PHostEnt;
Nme:PChar;
CryptF: TCryptFile;
f:textfile;
res:integer;
st:string;
begin
if not savedialog2.Execute then exit;
assignfile(f,SaveDialog2.FileName);
try
rewrite(f);
except
on EInOutError do exit;
end;
WSAStartup($0101,Client_);
GetHostName(nme, 255);
Host:=GetHostByName(Nme);
st:=inet_ntoa(PInAddr(Host.h_addr_list^)^);
writeln(f,st);
WSACleanup;
QuickReadInteger("HKLM\Software\MSSoft\Zvonilka\Port",res);
writeln(f,res);
closefile(f);
CryptF.IntKey:=43564;
CryptF.Password:="Monk";
CryptF.Infile:=SaveDialog2.FileName;
CryptF.Outfile:=SaveDialog2.FileName;
CryptF.Encrypt;
end;
← →
MBo (2003-03-04 23:56) [1]Дубль 2: ВЫДЕЛИ ПАМЯТЬ под PChar!!!!!!!!
← →
Palladin (2003-03-05 00:42) [2]
> MBo © (04.03.03 23:56)
Зачем?
Он же сказал что у него при отладке все работает до end, то есть по его мыслям проблема не в этом...
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.03.17;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.013 c