Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.017 c