Последние сообщения

Да, будем обучать сеть, давая ей советы

Добавлено через 1 минуту и 12 секунд:
Я как-то не подумал о таком варианте. Мы то пишем по старинке, своей головой. У нас только геймдизайнеры прототипы арта в чатгпт делают, говорят очень помогает.

[requestDeleteWork()]

я не знаток в энтом деле, но как варианты:
 

Код:

<button className="btn" disabled={isDeleting} onClick={requestDeleteWork}>

1. попробовать сперва указать что это ф-ция,  т.е указать requestDeleteWork()
2. явно указать, что передается в ф-цию requestDeleteWork({{id}})

PS: не знаток, проверяйте синтаксис

[RXL]

RXL, чатжпт?)

Явно тут какой-то шаблонизатор. Потому как назвать это валидными html+js язык не поворачивается. Смотри, что в браузер приходит.

Добрый день!
Нужно удалить по ключу key наименования дела, в массиве todos (т.е. дело под идентификатором  id). Но не получается, не определяет key! Не подскажите в чём проблема? Заранее признателен!

Код: (Javascript)

// Удалить дело
    const requestDeleteWork = ({key}) => {
        setIsDeleting(true);

        fetch('http://localhost:3003/todos/id', {
            method: 'DELETE',
        })
            .then((rawResponse) => rawResponse.json())
            .then((response) => {
                console.log('Дело удалено, ответ сервера:', response);
                setRefreshTodos(!refreshTodos);
            })
            .finally(() => setIsDeleting(false));
    };

return (
        <div className="App">
            <h2>Список дел:</h2>
            {todos.map(({ id, title }) => (
                <div key={id}>
                    {id} - {title}

                    <button className="btn" disabled={isDeleting} onClick={requestDeleteWork}>
                        Удалить дело
                    </button>
                </div>
            ))}
....................

Добрый день!

БД Firebase:

Data

Код: (Text)

todos
  1
    completed: false
    title: "delectus aut autem"
    userId: 1
  2
    completed: false
    title: "quis ut nam facilis et officia qui"
    userId: 1
..........

Rules

Код: (Text)

{
  "rules": {
    "todos": {
      ".indexOn": ["title"]
    }
  }
}

Пишет: В смоделированном чтении отказано.

Не подскажите в чём здесь проблема?!

Доброго времени суток, ув. форумчане!

Delphi 11 Update 3

Имеется рабочая процедура вывода результата выполнения консольной команды из PowerShell (отрисовка консоли) в RichEdit.
Задача: выполнить приостановку/запуск нескольких ВМ на Hyper-V при условии проверки их статуса:
- если статус "Running" - приостановить;
- если статус "Paused" - запустить.

Прошу помощи. Возможно, реализуемо через WMI, например? У кого есть наработки, поделитесь, пожалуйста.

Процедура:

Код:

procedure RunDosInMemo(CmdLine: widestring; AMemo: TRichEdit);
const
  ReadBuffer = 2400;
var
  sa: PAnsiChar;
  Security: TSecurityAttributes;
  ReadPipe, WritePipe: THandle;
  start: TStartUpInfo;
  ProcessInfo: TProcessInformation;
  Buffer: PAnsiChar;
  BytesRead: DWord;
  Apprunning: DWord;
begin
  Screen.Cursor := CrHourGlass;
 
  with Security do
  begin
    nlength := SizeOf(TSecurityAttributes);
    binherithandle := true;
    lpsecuritydescriptor := nil;
  end;
  if Createpipe(ReadPipe, WritePipe,
    @Security, 0) then
  begin
    Buffer := AllocMem(ReadBuffer + 1);
    FillChar(Start, Sizeof(Start), #0);
    start.cb := SizeOf(start);
    start.hStdOutput := WritePipe;
    start.hStdInput := ReadPipe;
    // start.dwFlags := STARTF_USESHOWWINDOW;
    start.dwFlags := STARTF_USESTDHANDLES +
      STARTF_USESHOWWINDOW;
    start.wShowWindow := SW_HIDE;
 
    if CreateProcess(nil,
      PChar(CmdLine),
      @Security,
      @Security,
      true,
      NORMAL_PRIORITY_CLASS,
      nil,
      nil,
      start,
      ProcessInfo) then
    begin
      repeat
        Apprunning := WaitForSingleObject
          (ProcessInfo.hProcess, 100);
        ReadFile(ReadPipe, Buffer[0],
          ReadBuffer, BytesRead, nil);
        Buffer[BytesRead] := #0;
 
        sa := PAnsiChar(Buffer);
        OemToCharA(sa, sa);
        AMemo.Text := AMemo.text + sa;
 
        Application.ProcessMessages;
      until (Apprunning <> WAIT_TIMEOUT);
    end;
    FreeMem(Buffer);
    CloseHandle(ProcessInfo.hProcess);
    CloseHandle(ProcessInfo.hThread);
    CloseHandle(ReadPipe);
    CloseHandle(WritePipe);
  end;
  Screen.Cursor := CrDefault;
end;

Вызов:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  RichEdit1.Clear;
  RunDosInMemo('powershell.exe' + ' /c ' + 'Get-VM -Name S2.ACPA.16,S2.W2022.Test | Format-Table -HideTableHeaders State', RichEdit1);
end;

Листинг PowerShell:

Код:

PS C:\Windows\system32> Get-VM -Name S2.ACPA.16,S2.W2022.Test | Format-Table -HideTableHeaders State
 
Running
Running
 
 
PS C:\Windows\system32> Suspend-VM -Name S2.ACPA.16,S2.W2022.Test -Verbose -Confirm:$false
ПОДРОБНО: Suspend-VM приостановит работу виртуальной машины "S2.W2022.Test".
ПОДРОБНО: Suspend-VM приостановит работу виртуальной машины "S2.ACPA.16".
PS C:\Windows\system32> Get-VM -Name S2.ACPA.16,S2.W2022.Test | Format-Table -HideTableHeaders State
 
Paused
Paused
 
 
PS C:\Windows\system32> Resume-VM -Name S2.ACPA.16,S2.W2022.Test -Verbose -Confirm:$false
ПОДРОБНО: Resume-VM возобновит работу виртуальной машины "S2.W2022.Test".
ПОДРОБНО: Resume-VM возобновит работу виртуальной машины "S2.ACPA.16".
PS C:\Windows\system32> Get-VM -Name S2.ACPA.16,S2.W2022.Test | Format-Table -HideTableHeaders State
 
Running
Running

[RXL]

RXL, привет! кстати тут у нас Пенни Орвик лежит- вполне актуально мне думается. не думаю что что то после нее появлялось переводное и такое же обширное.

кстати "Внутреннее устройство Microsoft Windows. Марк Руссинович,  Дэвид Соломон. "
оказывается!!!! на 2018год уже переведено 7-е издание с упоминаниями win10. и ее можно купить в электронном за 800рэ, на сайте издательства Питер!
https://www.piter.com/collection/windows-ustanovka-i-nastroyka/product/vnutrennee-ustroystvo-windows-7-e-izd

Наша коллекция древняя, но все же:
https://club.shelek.ru/viewfiles.php?id=9
https://club.shelek.ru/viewfiles.php?id=2

[NikVE]

NikVE, PS но лучше все таки читать с windows-2000. Windows 98-ой, WDM-драйвера поддерживал, но так же поддерживал и vxd-дрова от 3.x-95го, которые кардинально другие.
литература в прибитых темах висит список. бумажные варианты скорее уже не найти, хотя вон на озоне Пени Орвик печатают на заказ незадрого но это если WDF захочется.
Уолтер Они - скорее в электронном надо искать...
Руссинович вроде можно было найти в электронном виде.