есть файл php (в нем html, js и php в одном файле).

Как передать переменную js в этом файле в переменную php в этом же файле.

P.S. разделить код на отдельные файлы html, js и php нет никакой возможности.

(читать всё…)

на php можно написать, чтобы отображалось время
например:

<?php
echo date("H:i:s");
?>

время обновляется только при обновлении страницы, а можно ли как-нибудь сделать так, чтобы время само изменялось?

(читать всё…)

Подскажите пожалуйста, как можно передать значение id в модальное окно, при клике на ссылку.

<a href='#' data-reveal-id='myModal' id='1'>1</a>
<a href='#' data-reveal-id='myModal' id='2'>2</a>
<a href='#' data-reveal-id='myModal' id='3'>3</a>
<a href='#' data-reveal-id='myModal' id='4'>4</a>
<a href='#' data-reveal-id='myModal' id='5'>5</a>

Чтобы в модальном окне отобразилась переменная id. Т.е. интересует сама реализация вывода id в модальном окне.
Все это пытаюсь прикрутить к Reveal Modals.

(читать всё…)

Восстановил удаленные файлы .txt с флешки.
Вес файлов которые привышали(больше) 1 кб.
При открытии вместо русского языка… Отображались кракозябры и символы непонятные.

Есть ещё изображения . jpeg и архивы rar и zip. Они не открываются… Их можно восстановить? Их вес понятно, что больше 1 кб.

Вопрос , можно ли восстановить в исходное состояние такие файлы? В частности .txt ? Какие существуют для этого средства и программы?

(читать всё…)

Использую код:

Код:

uses
...sevenzip, ...
 
function ProgressCallback(sender: Pointer; total: boolean; value: int64): HRESULT; stdcall;
 begin
   if total then
     Form1.sprgrsbr1.Max:= value
   else
     Form1.sprgrsbr1.Position:= value;
   Result:= S_OK;
 end;
 
function Decompress(FileName, DestDir, ArcFname: String; ArcDir: Boolean ): Boolean;
var
  i: Integer;
  ItP: string;
  items: array[1..11] of Cardinal;
  sprgrsbr1: TsProgressBar;
begin
  Result:= False;
  Application.ProcessMessages;
  try
  with CreateInArchive(CLSID_CFormat7z) do
    begin
      OpenFile(FileName);
      SetProgressCallback(sprgrsbr1, ProgressCallback);
      for i:= 1 to NumberOfItems - 1 do
      if not ItemIsFolder then
      //ExtractItem(items, Steam, False);  - как ей пользоваться в душе не понимаю...
      ExtractTo(DestDir);
    end;
  finally
    Result:= True;
  end;
end;

Как распаковать только нужные, кто знает подскажите..?

Вот файлы 7zip

(читать всё…)

Как сделать такую программу которая могла бы записывать все что происходит на компьютере в AVI файл?
(желательно со звуком).

(читать всё…)

Допустим у меня есть combobox и memo. В комбобокс у меня есть оценки (2,3,4,5).. в Listbox у меня написано например 2=Иванов… И вот как мне,выбирая в комбобокс «2»,в мемо отобразить Иванов..

(читать всё…)

удалить дубликаты вместе с оригиналом из Tstrings, если первые 4 символа равны 4 символам других строк, пробовал такой код, но ошибка list index out of bounds 0, причем если написать условие

if t = t[q] then t.delete(q);

то все нормально. Главное еще оптимизировать код под работу через F:textfile; (главное чтобы работало быстро и не через оперативную память)

var T:Tstringlist;
i,q:integer;
...
for I := t.Count-1 downto 0 do
for q := i-1 downto 0 do
if Copy(t,1,4) = Copy(t[q],1,4) then t.Delete(q);

(читать всё…)

Изображения

(читать всё…)

Создать формулу по которой можно вычислить конечный срок реализации товара. Например: масло сливочное,  дата производства 10.08.2018 срок годности 8 мес = конечный день реализации.

(читать всё…)