Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.17;
Скачать: CL | DM;

Вниз

И просто проблема №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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
14-54251
Sha
2003-02-28 10:53
2003.03.17
Високосный год. Головоломка.


7-54357
lgcpiton
2003-01-20 16:12
2003.03.17
Закріть доступ к директории


14-54271
Mike B.
2003-02-28 16:33
2003.03.17
Поздравляю всех с концом Интернета!


1-54108
UDS
2003-03-05 18:05
2003.03.17
Нестандартные формы


1-54021
aade
2003-03-06 22:08
2003.03.17
Проблема с Диалогом открытия файла