Bass 1.3 - Мультимедиа в Delphi - Страница 3

Кольша · 22.08.2011, 17:51

Код:

function ListViewConfHTML(Listview:TListview; output:string; center: Boolean) : Boolean;
 var
   i,f: Integer;
   tfile: TextFile;
 begin
   try
     ForceDirectories(ExtractFilePath(output));
     AssignFile(tfile,output);
     ReWrite(tfile);
     WriteLn(tfile,'<html>');
     WriteLn(tfile,'<head>');
     WriteLn(tfile,'<title>HTML-Ansicht: '+listview.Name+'</title>');
     WriteLn(tfile,'</head>');
     WriteLn(tfile,'<table border="1" bordercolor="#000000">');
     WriteLn(tfile,'<tr>');
     for i := 0 to listview.Columns.Count - 1 do
     begin
       if center then
         WriteLn(tfile,'<td><b><center>'+listview.columns[i].caption+'</center></b></td>') else
         WriteLn(tfile,'<td><b>'+listview.columns[i].caption+'</b></td>');
     end;
     WriteLn(tfile,'</tr>');
     WriteLn(tfile,'<tr>');
     for i := 0 to listview.Items.Count-1 do
     begin
       WriteLn(tfile,'<td>'+listview.items.item[i].caption+'</td>');
       for f := 0 to listview.Columns.Count-2 do
       begin
         if listview.items.item[i].subitems[f]='' then Write(tfile,'<td>-</td>') else
           Write(tfile,'<td>'+listview.items.item[i].subitems[f]+'</td>');
       end;
       Write(tfile,'</tr>');
     end;
     WriteLn(tfile,'</table>');
     WriteLn(tfile,'</html>');
     CloseFile(tfile);
     Result := True;
   except
   Result := False;
   end;
 end;
 procedure TForm1.Button1Click(Sender: TObject);
 begin
   if ListViewConfHTML(form1.ListView1,'C:\text.html', true) then
     ShowMessage('OK/ Hat geklappt') else
       ShowMessage('Error occured/ Hat nicht geklappt');
 end;

вот ну тут не и плеера это пример но переделать та не долго.

Код:

пост #11 используй тот модуль

этот модуль tags.dll чтоль???

ZuBy · 22.08.2011, 17:56

Цитата:

этот модуль tags.dll чтоль???

по ссылке ходил?

а зачем делать такое сохранение?
используй INI файлы, на крайний случай обычный TXT докумен

Кольша · 22.08.2011, 18:02

нет щас схожу

Кольша · 22.08.2011, 18:07

ну как я из memo могу сохранить из edit могу а отсюда несохранить не могу не загрузить(((

ZuBy · 22.08.2011, 18:17

ну также как и в этом примере что ты привел
через цикл, построчно записываешь в файл

Кольша · 22.08.2011, 18:26

не допирает чот до меня

Кольша · 22.08.2011, 19:44

help me как из listview сохранить буквы в файл и как их туда загрузить?

22.08.2011, 18:02	#23
Кольша Далеко не Участник клуба Регистрация: 11.08.2011 Сообщений: 1,512	нет щас схожу Kolsha.ru admin[@]ksware.ru

22.08.2011, 18:07	#24
Кольша Далеко не Участник клуба Регистрация: 11.08.2011 Сообщений: 1,512	ну как я из memo могу сохранить из edit могу а отсюда несохранить не могу не загрузить((( Kolsha.ru admin[@]ksware.ru

22.08.2011, 18:17	#25
ZuBy Участник клуба Регистрация: 29.09.2008 Сообщений: 1,234	ну также как и в этом примере что ты привел через цикл, построчно записываешь в файл бложик FMX Developer'a

22.08.2011, 18:26	#26
Кольша Далеко не Участник клуба Регистрация: 11.08.2011 Сообщений: 1,512	не допирает чот до меня Kolsha.ru admin[@]ksware.ru

22.08.2011, 19:44	#27
Кольша Далеко не Участник клуба Регистрация: 11.08.2011 Сообщений: 1,512	help me как из listview сохранить буквы в файл и как их туда загрузить? Kolsha.ru admin[@]ksware.ru

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Bass	Dr.Badnezz	Мультимедиа в Delphi	3	20.09.2011 20:57
Позиция в BASS	mutabor	Мультимедиа в Delphi	7	19.09.2010 16:30
bass.dll	larry	Общие вопросы C/C++	1	09.11.2009 13:23
Теги и BASS	Gr@nd	Мультимедиа в Delphi	2	02.09.2009 09:49
bass.dll	Elem	Мультимедиа в Delphi	18	19.07.2009 11:04