Сохранить и удалить данные на жесткий диск

← →
Pavlov (2009-05-07 15:28) [0]

Здравствуйте. Как можно в delphi сохранить данные на жесткий диск, а при, скажем, нажатии на button, удалить. Какие для этого существуют способы?

← →
Nbveh © (2009-05-07 15:30) [1]

Описаны в любом учебнике паскаля.

← →
stas © (2009-05-07 15:33) [2]

Смотря что нужно

например:

сохранить
Memo1.lines.savetofile("C:\myfile.txt")

удалить
DeleteFile ("C:\myfile.txt")

← →
Pavlov © (2009-05-07 15:38) [3]

Я делаю так:
html_img:=FieldByName("tech_id").AsString + "img"; (FieldByName("PREVIEW_BODY") as TBlobField).SaveToFile(html_img);
и потом я могу работать с сохраненной копией. Но дело в том что мне нужно сохранять ек в ту папку из которой запущена программа а на диск С. Если я делаю так
html_img:="C:\Temp\1"+FieldByName("tech_id").AsString + "img"; (FieldByName("PREVIEW_BODY") as TBlobField).SaveToFile(html_img);
то уже с копией работать не могу. Конкретнее, эта копия не отображается в html-файле:
HTMLStr.Add("... "src=""+html_img+"...");
В чем может быть дело?

← →
stas © (2009-05-07 15:42) [4]

var path:string;
...
...
...
Path:=ExtractFilePath(Application.ExeName) - это папка с exe

← →
Pavlov © (2009-05-07 15:45) [5]

> и потом я могу работать с сохраненной копией. Но дело в
> том что мне нужно сохранять ек в ту папку из которой запущена
> программа а на диск С. Если я делаю так
-опечатка

и потом я могу работать с сохраненной копией. Но дело в том что мне нужно сохранять ее НЕ в ту папку из, которой запущена программа а на диск С. Если я делаю так

← →
Andy BitOff © (2009-05-07 15:50) [6]

Как-то код из [3] не стыкуется с [0]

← →
Anatoly Podgoretsky © (2009-05-07 16:00) [7]

А папка C:\Temp доступна из html запроса?
Идет ли речь про веб сервер или про локальный запрос?

← →
Pavlov © (2009-05-07 16:11) [8]

procedure TForm1.Button1Click(Sender: TObject); var HTMLStr:TStringList; i:integer; begin HTMLStr:=TstringList.Create; HTMLStr.Clear; HTMLStr.Add("<HTML>"); HTMLStr.Add("<HEAD>"); HTMLStr.Add("<TITLE>"+"Мой проект"+"</TITLE>"); HTMLStr.Add("</HEAD>"); ... with IBQuery1 do begin Close; IBQuery1.ParamByName("PIC_ID").AsInteger :=PIC_ID; Open; html_img:=FieldByName("PIC_ID").AsString + "img"; (FieldByName("PICTURE") as TBlobField).SaveToFile(html_img); Close; end; HTMLStr.Add("... "<v:imagedata src=""+html_img+"" o:title="Рисунок"/> "+ "</v:shape><![endif]--><![if !vml]><img width=624 height=306 "+ "src=""+html_img+"" v:shapes="_x0000_i1025"><![endif]></p> "); ... HTMLStr.Add("</TABLE>"); HTMLStr.Add("</BODY>"); HTMLStr.Add("</HTML>"); HTMLStr.SaveToFile("HTML.html"); HTMLStr.Free; ShellExecute(Handle, "open", pchar("HTML.html"), "", "", sw_ShowNormal); end;
База, из которой берутся данные, находится на удаленном сервере (не веб), также как и .exe файл.

← →
Медвежонок Пятачок © (2009-05-07 16:25) [9]

В чем может быть дело?

В кривой ссылке на имадж разумеется

← →
stas © (2009-05-07 16:28) [10]

Pavlov © (07.05.09 16:11) [8]
и как выглядит полученый HTML ?

некрасиво выглядит

> и как выглядит полученый HTML ?

Просто лист html с данными, но вместо рисунка пустая рамка для рисунка .Это в вот в каком случае
html_img:="C:\Temp\1"+FieldByName("tech_id").AsString + "img"; (FieldByName("PREVIEW_BODY") as TBlobField).SaveToFile(html_img);
А в случае
html_img:=FieldByName("tech_id").AsString + "img"; (FieldByName("PREVIEW_BODY") as TBlobField).SaveToFile(html_img);
нормально отображается рисунок в html "листе".

> В кривой ссылке на имадж разумеется

Не могли бы вы указать на это место?

> Pavlov © (07.05.09 16:56) [12]
>
>
> > и как выглядит полученый HTML ?
>
>
> Просто лист html с данными, но вместо рисунка пустая рамка
> для рисунка .Это в вот в каком случае
> html_img:="C:\Temp\1"+FieldByName("tech_id").AsString +
> "img";

Используй для просмотра internet explorer.

Не могли бы вы указать на это место?

<Цитата>

Это вопрос или это шутка такая?

<img src="это_место">.....

← →
имя (2009-05-08 08:00) [15]

Удалено модератором

Сохранить и удалить данные на жесткий диск Найти похожие ветки