Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Сохранить и удалить данные на жесткий диск [D7, XP]

Pavlov © (2009-05-07 15:28:00)
Здравствуйте. Как можно в delphi сохранить данные на жесткий диск, а при, скажем, нажатии на button, удалить. Какие для этого существуют способы?

(2009-05-08 08:00:00) [1]
Удалено модератором

Медвежонок Пятачок (2009-05-07 22:41:00) [2]
Не могли бы вы указать на это место?

<Цитата>

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

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

Плохиш (2009-05-07 17:01:00) [3]

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

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

Pavlov (2009-05-07 16:56:00) [4]

> и как выглядит полученый 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 "листе".

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

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

Медвежонок Пятачок (2009-05-07 16:34:00) [5]
некрасиво выглядит

stas (2009-05-07 16:28:00) [6]
Pavlov © (07.05.09 16:11) [8]
и как выглядит полученый HTML ?

Медвежонок Пятачок (2009-05-07 16:25:00) [7]
В чем может быть дело?

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

Pavlov (2009-05-07 16:11:00) [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 файл.

Anatoly Podgoretsky (2009-05-07 16:00:00) [9]
А папка C:\Temp доступна из html запроса?
Идет ли речь про веб сервер или про локальный запрос?

Andy BitOff (2009-05-07 15:50:00) [10]
Как-то код из [3] не стыкуется с [0]

Pavlov (2009-05-07 15:45:00) [11]

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

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

stas (2009-05-07 15:42:00) [12]
var path:string;
...
...
...
Path:=ExtractFilePath(Application.ExeName) - это папка с exe

Pavlov (2009-05-07 15:38:00) [13]
Я делаю так:
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:33:00) [14]
Смотря что нужно

например:

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

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

Nbveh (2009-05-07 15:30:00) [15]
Описаны в любом учебнике паскаля.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »