How can I get rid of '^M' carriage returns when writing to file

[Vovin]

Hi,

I'm trying to append the following to a pdf file:
<OPENTAG>some text<ENDTAG>
The trouble is that when I use Writeln or Write it adds carriage return characters after each line (even though it's a single text string) which causes acrobat to complain that the file is corrupted.

Here is my code:
AssignFile(pdfFile, filename);
Append(pdfFile);
WriteLn(pdfFile, stringToAddToFile);
CloseFile(pdfFile);

How can I get rid of the carriage return? I'm a C++ programmer really and don't know much about Delphi. Is there any low level file functions that I can use that would give me more control over this?

Any help would be much appreciated.

 

[TonHu]

a) Replace WriteLn with Write
b) Don't include any #13 and/or #10 in the stringToAddToFile

HTH
TonHu

 

[Vovin]

Thanks TonHu but I tried using just Write and I get the same result (carriage returns are still added).

I'm having a look at TFileStream at the moment but can't get it to work at all. Does anyone know of any good tutorials on TFileStream for appending to a file?

I suppose I could write a C++ dll to do this for me but there must be a way to do it within Delphi. Isn't there?

 

[LucieLastic]

hi

Are you sure there's no carriage returns in the string?

Before writing it to the file, try

NewStr := StrToAddToFile;
NewStr := StringReplace(NewStr,#13,'',[rfReplaceAll]);
NewStr := StringReplace(NewStr,#10,'',[rfReplaceAll]);
Write(pdfFile, NewStr);

Hope this helps. If not, you must have a stray character in there that's causing it.

Also, if you use Writeln, that will append the string to the current line and add carriage return to the end.

 

[Vovin]

Thanks LucieLastic,

that got rid of the characters. I really don't know why they were in the first place.