Запись файла

[vovken1997]

Здравствуйте!
У меня не работает запись в файл. Если к примеру цакоментировать тело функции write_file, то всё работает, ни каких ошибок. А если оставить как есть, то при попытке приложения записать в файл, вылетает ошибка. То есть файл компилится и всё ок, до тех пор пока в файл не пишешь. В чём ошибка???

library Project1;

uses
SysUtils, Classes, cap_ip;

type
MYCap = class
procedure cap_ip1Cap(ip, proto, sourceIP, destIP,SourcePort, DestPort: String; header: PAnsiChar; header_size: Integer;data: PAnsiChar; data_size: Integer);
end;

const
Path_file='D:\1.txt';

var
cap_ip1: TCap_IP;
MYCap1: MYCap;
{$R *.res}

procedure write_file(s,path:string;create_fil e: boolean);
var
f:text;
begin
if create_file=false then
begin
assign(f,path);
rewrite(f);
writeln(f,s);
close(f);
end else
begin
try
assign(f,path);
{$I-}
reset(f);
{$I+}
writeln(f,s);
close(f);
except
end;
end;

end;

procedure Cap_IP(swith:boolean);stdcall;expor t;
begin
if swith=true then
begin
cap_ip1:=TCap_IP.Create(nil);
MYCap1:=MYCap.Create;
cap_ip1.OnCap:=MYCap1.cap_ip1Cap;
cap_ip1.StartCap;
end else
begin
cap_ip1.StopCap;
end;
end;

{ MYCap }

procedure MYCap.cap_ip1Cap(ip, proto, sourceIP, destIP, SourcePort,
DestPort: String; header: PAnsiChar; header_size: Integer;
data: PAnsiChar; data_size: Integer);
begin
write_file('----------------------------------------------', path_file,true);
write_file('IP ['+ip+']', Path_file,false);
write_file('Protocol ['+proto+']',path_file,true);
write_file('Source IP ['+sourceIP+']', Path_file,true);
write_file('Dest IP ['+destIP+']', path_file,true);
write_file('Source Port ['+sourcePort+']',path_file,true);
write_file('Dest Port ['+DestPort+']',path_file,true);
write_file('Header ['+Header+']',path_file,true);
write_file('Header_size ['+IntToStr(header_size)+']',path_file,true);
write_file('Date ['+Data+']',path_file,true);
write_file('Data Size ['+IntToStr(Data_size)+']',path_file,true);
end;

exports Cap_IP;

begin
end.

Помогите пожайлуста.

[Slym]

еслиб я писал в

файл так как

пишеш ты это

выглядело именно

так. переделать

открыл закрыл открыл закрыл открыл закрыл... под...чили

[Yurk@]

var
f:text;

а может всё-таки

var
 f:TextFile;

?
и кстати да, замечание Slym очень актуально. делай процедуру открытия файла и отдельной процедурой пиши в этот файл (уже открытый), а потом закрывай.
если у тебя будет 100500 строк на запись ты в итоге будешь 100500 раз открывать файл на запись - писать туда 1 строку - закрывать ... и так много-много раз ... не кошерно как-то

[vovken1997]

Так тоже пробывал, не работает.

Вот видоизменил код, как говорили, но ошибка осталась

library Project1;

uses
SysUtils, Classes, cap_ip;

type
MYCap = class
procedure cap_ip1Cap(ip, proto, sourceIP, destIP,SourcePort, DestPort: String; header: PAnsiChar; header_size: Integer;data: PAnsiChar; data_size: Integer);
end;

const
Path_file='D:\1.txt';

var
cap_ip1: TCap_IP;
MYCap1: MYCap;
f: textfile;
{$R *.res}


procedure Cap_IP(swith:boolean);stdcall;expor t;
begin
if swith=true then
begin
cap_ip1:=TCap_IP.Create(nil);
MYCap1:=MYCap.Create;
cap_ip1.OnCap:=MYCap1.cap_ip1Cap;
cap_ip1.StartCap;

assignfile(f,path_file);
if fileexists(path_file)=false then
begin
rewrite(f);
closefile(f);
end;
reset(f);
end else
begin
cap_ip1.StopCap;
closefile(f);
end;
end;

{ MYCap }

procedure MYCap.cap_ip1Cap(ip, proto, sourceIP, destIP, SourcePort,
DestPort: String; header: PAnsiChar; header_size: Integer;
data: PAnsiChar; data_size: Integer);
begin
writeln(f,'----------------------------------------------', path_file,true);
writeln(f,'IP ['+ip+']');
writeln(f,'Protocol ['+proto+']');
writeln(f,'Source IP ['+sourceIP+']');
writeln(f,'Dest IP ['+destIP+']');
writeln(f,'Source Port ['+sourcePort+']');
writeln(f,'Dest Port ['+DestPort+']');
writeln(f,'Header ['+Header+']');
writeln(f,'Header_size ['+IntToStr(header_size)+']');
writeln(f,'Date ['+Data+']');
writeln(f,'Data Size ['+IntToStr(Data_size)+']');
end;

exports Cap_IP;

begin
end.

Странно, сейчас попробывал убрать работу с файлом, а ошибка всё равно выскачаила. Короче в архиве в одной папке компонент, который я использую. А в другой собственно длл с проверяющей программой.
Помогите пожайлуста!!!

[Yurk@]

так а что за ошибка то ?

[vovken1997]

ВОТ скриншот ошибки

[vovken1997]

Примерно нашёл в какой строке ошибка это
cap_ip1.OnCap:=MYCap1.cap_ip1Cap;
Когда её коментируешь, ошибки не происходит. Подскажите, что не так.

[Slym]

мне кажется ашибка в использовании String

{ Important note about DLL memory management: ShareMem must be the
first unit in your library's USES clause AND your project's (select
Project-View Source) USES clause if your DLL exports any procedures or
functions that pass strings as parameters or function results. This
applies to all strings passed to and from your DLL--even those that
are nested in records and classes. ShareMem is the interface unit to
the BORLNDMM.DLL shared memory manager, which must be deployed along
with your DLL. To avoid using BORLNDMM.DLL, pass string information
using PChar or ShortString parameters. }

[vovken1997]

library Project1;

uses
SysUtils, Classes, cap_ip, Dialogs;

type
MYCap = class
procedure cap_ip1Cap(ip, proto, sourceIP, destIP,SourcePort, DestPort: String; header: PAnsiChar; header_size: Integer;data: PAnsiChar; data_size: Integer);
end;

const
Path_file='D:\1.txt';

var
cap_ip1: TCap_IP;
MYCap1: MYCap;
f: textfile;
{$R *.res}


procedure Cap_IP(swith:boolean);stdcall;expor t;
begin
if swith=true then
begin
cap_ip1:=TCap_IP.Create(nil);
MYCap1:=MYCap.Create;
cap_ip1.OnCap:=MYCap1.cap_ip1Cap;
cap_ip1.StartCap;

assignfile(f,path_file);
//if fileexists(path_file)=false then
//begin
//rewrite(f);
// closefile(f);
//end;
reset(f);
// write(f,'gujuyuy1');
end else
begin
cap_ip1.StopCap;
closefile(f);
end;
end;

{ MYCap }

procedure MYCap.cap_ip1Cap(ip, proto, sourceIP, destIP, SourcePort,
DestPort: String; header: PAnsiChar; header_size: Integer;
data: PAnsiChar; data_size: Integer);
begin
writeln(f,'----------------------------------------------',true);
writeln(f,'IP ['+ip+']');
writeln(f,'Protocol ['+proto+']');
writeln(f,'Source IP ['+sourceIP+']');
writeln(f,'Dest IP ['+destIP+']');
writeln(f,'Source Port ['+sourcePort+']');
writeln(f,'Dest Port ['+DestPort+']');
writeln(f,'Header ['+Header+']');
writeln(f,'Header_size ['+IntToStr(header_size)+']');
writeln(f,'Date ['+Data+']');
writeln(f,'Data Size ['+IntToStr(Data_size)+']');

end;

exports Cap_IP;

begin
end.

Я понял, что именно ему не нравится. Если процедуру reset(f); заменить на rewrite(f); то всё работает. Но мне хотелось бы не очищать файл при каждом запуске программы. Почему reset(f); не работает???

ПОМОГИТЕ!!!!

[MihalNik]

Если процедуру reset(f); заменить на rewrite(f); то всё работает. Но мне хотелось бы не очищать файл при каждом запуске программы. Почему reset(f); не работает???

Код, правда, не смотрел, но Reset открывает текстовые файлы только для чтения, а типизированные также и для записи. Для добавления в конец текстовых есть Append.