CopyFile пишет файл размером 0 б.

[Alex Cones]

CopyFile(Pchar('D:\Map\404.jpeg'), PChar('D:\Map\'+IntToStr(Z)+'\'+SX+SY+'.jpeg'), True);

Файл создается, но размер 0. D:\Map\404.jpeg существует.

[SERG1980]

Попробовал у себя сделать аналогично, всё нормально

procedure TForm1.Button1Click(Sender: TObject);
var z:integer;
    sx,sy:string;
begin
 sx:='dd';
 sy:='aaa';
 z:=34;//создал каталог с таким названием
 CopyFile(Pchar('D:\Map\404.jpeg'), PChar('D:\Map\'+IntToStr(Z)+'\'+SX+SY+'.jpeg'), True);
end;

а переменные sx sy какие значения имеют?
а можете вашу картинку выложить

[Alex Cones]

SX и SY имеют правильные значения - файл то создается.

Try
 s:='http://sat01.maps.yandex.ru/tiles?l=sat&v=1.18.0&x='+inttostr(x)+'&y='+inttostr(y)+'&z='+inttostr(z);
 fs:=TFileStream.Create('D:\Map\'+IntToStr(Z)+'\'+SX+SY+'.jpeg', fmCreate);
 http.Get(s, fs);
 fs.Free;
Except
 On EIdHTTPProtocolException Do CopyFile(Pchar('D:\Map\404.jpeg'), PChar('D:\Map\'+IntToStr(Z)+'\'+SX+SY+'.jpeg'), True);
End;

[igh0st]

Обнови информацию в окне проводника, возможно всё ОК.

[Alex Cones]

Обнови информацию в окне проводника, возможно всё ОК.

Было бы ОК, я б тему не создавал. И я не лезу в папку, пока не завершится программа - иначе проводник повиснет, в папке 65 тысяч файлов.

[igh0st]

Мож места на диске нету? Попробуй его куда-нибудь в другое место copy.

[Alex Cones]

Места на диске еще 100 с фигом гигов.
________________________
UPD Создал папку Map2 (на том же диске), в ней папку с номером Z. ТУДА скопировалось без проблем.

P.S. Тупая винда.

[Stilet]

Во-первых: Мне немного странно что ты полагаешся на то что папка куда копировать уже есть.
Откуда ты знаешь что 'D:\Map\'+IntToStr(Z) существует?
Я бы делал так:

 On EIdHTTPProtocolException Do begin
ForceDirectory('D:\Map\'+IntToStr(Z));
if not CopyFile(Pchar('D:\Map\404.jpeg'), PChar('D:\Map\'+IntToStr(Z)+'\'+SX+SY+'.jpeg'), True) then    RaiseLastWin32Error;
end;

Так хотя бы ошибки видно...

[igh0st]

Сообщение от Alex Cones

Тупая винда.

Я бы не бы столь категоричен в данной ситуации

[Alex Cones]

Папка сущестовала и в ней уже было около 64000 файлов.

Повторюсь еще раз: файлы создавались! Но пустые. Создал папку map2, в ней с папку со значением z и добавил "2" в код. Создались нормальные файлы. Скорее всего это тупила винда из-за большого количества файлов в папке. (сейчас там 65537 файлов)