KOL-CE File Write

[JoniDS]

hi,

I'am trying to write to a file in my win ce application.

This is the code :

//CODE

procedure TForm1.Button1Click(Sender: PObj);
var
dir : string;
f : thandle;
 msg : String;
begin
msg := 'hello world';

dir := extractfilepath(paramstr(0));

f := FileCreate(dir+'xpto.txt', ofCreateNew);
FileClose(f);
f := FileCreate(dir+'xpto.txt', ofopenwrite);
FileWrite(f, msg,sizeof(msg));
FileClose(f);

end;  

//CODE

It creates the file, but it writes nothing in it.
Can you tell me what's wrong?

Thanks in advance

[aji]

This is how I write a line of text to a file that already exists:

[code]
 var n,i: integer;
     F : Textfile;
     buffer: string;
begin
     buffer:='';
     Assign(F, '\My Documents\test.txt'  );
     rewrite(F);
     Writeln(F,buffer) ;
     buffer:='';
     CloseFile(F) ;
[/quote]

[stootch]

Code: [Select]


f := FileCreate(dir+'xpto.txt', ofCreateNew);
FileClose(f);
f := FileCreate(dir+'xpto.txt', ofopenwrite);
FileWrite(f, msg,sizeof(msg));
FileClose(f);


What GetLastError says after FileWrite?
Also, you don't have to close and instantly reopen the file once you have a handle.

[yuriy_sydorov]

RTFM.

Code: [Select]

FileWrite(f, PChar(msg)^,Length(msg));

[JoniDS]

Thanks,
I would gladly read the manual where is it?

Thanks for the tip :

FileWrite(f, PChar(msg)^,Length(msg));

However this way it still writes nothing to the file.
After some faild tentatives i managed to get it working by doing the following :
f := FileCreate(dir+'xptoa.txt', ofopenwrite or ofopenalways);

Not to abuse your help but now how do i write and read a RECORD?

Thanks again

[yuriy_sydorov]

Thanks,
I would gladly read the manual where is it?

I meant generic Object Pascal info how to pass string content to functions which expects buffer and its size.
In your initial approach you tried to write 4-byte pointer to a string...

Not to abuse your help but now how do i write and read a RECORD?

Thanks again

This time your approach will work:

Code: [Select]

FileWrite(f, myrec, sizeof(myrec));


[JoniDS]

Thank you very much for your help, it's working now.
And i would like to congratulate you for the excellent  work at KOL-CE.