Записать бинарник из строки

[Unconnected]

Привет всем.
Есть строка "кракозябров", которые на самом деле являются exe-файлом, эта строка получается при скачке файла с сервера. Надо их записать в файл, чтобы получился обратно рабочий exe. Как это сделать? BlockWrite-ом не получилось..

[p51x]

BlockWrite-ом не получилось..

Это с чего вдруг? Код в студию.

[Unconnected]

Я не знаю, как заполнять его (writebuffer) входные параметры из строки..

[GunSmoker]

Данные в String?

var
  Src: AnsiString;
  Dst: TStream;
...
  Dst.WriteBuffer(Pointer(Src)^, Length(Src));

var
  Src: AnsiString;
  Dst: File;
...
  BlockWrite(F, Pointer(Src)^, Length(Src));

[Unconnected]

procedure str2exe(src,p:ansistring);
var
  Dst:File;
begin
  assignfile(dst,p);
  rewrite(dst);
  BlockWrite(dst, Pointer(Src)^, Length(Src));
  closefile(dst);
end;

На строке BlockWrite вылетает с ошибкой I\O error 1784. Мол, тип буффера ему неправильный..
Или, может, надо было не assign, а как-то по другому.

[GunSmoker]

F1:

RecSize is an optional expression that can be specified only if F is an untyped file. If F is an untyped file, RecSize specifies the record size to be used in data transfers. If RecSize is omitted, a default record size of 128 bytes is assumed.

[Unconnected]

Ну файл тут untyped-нетипизированный, значит, нужно явно указать.. чтобы одной порцией записалось.

rewrite(dst,length(src));

- так?

[Serge_Bliznykov]

1)

Ну файл тут untyped-нетипизированный, значит, нужно явно указать.. чтобы одной порцией записалось.

нет
Вы же размер записываемого буфера указываете в байтах, значит, нужно указать, что размер записываемой информации 1 байт:

rewrite(dst,1);

2) А чем Вам TFileSteam не угодил?! Он же удобнее, проще (а возможно, и эффективнее).

[Unconnected]

Вы же размер записываемого буфера указываете в байтах, значит, нужно указать, что размер записываемой информации 1 байт:

Да, точно. Всем спасибо, заработало)
TFileStream юзать не могу, т.к. обхожусь без Classes, пишу на KOL. Там тоже конечно есть аналоги, но тут удобнее со строками скорее всего..

Кстати, вопрос по близкой теме: если, допустим, таким макаром записать файл и следующей командой в программе его запустить (shellexecute), - возможна ли ситуация, что файл типа не успел записаться и не запустится?

[Пепел Феникса]

Кстати, вопрос по близкой теме: если, допустим, таким макаром записать файл и следующей командой в программе его запустить (shellexecute), - возможна ли ситуация, что файл типа не успел записаться и не запустится?

а вы закройте файл перед запуском.