F. A. Q. (Вопросы и Ответы)

[xsnakes]

Что делать если я не нашёл решения на мой вопрос в данной теме?

• Почитать Справочник по DevelStudio >>
• Почитать Статьи про PHP на www.develstudio.ru >>
• Почитать сайты php.su >>, php.net >>, php.ru >>,
• Воспользоваться "Хорошим поиском" расположенным в шапке форума, в самом верху
• Написать мне личное сообщение с вопросом и я дальше посоветую, какие действия предпринять
• Попробовать обратиться в личное сообщение с вопросом к другим активным пользователям >>
• Исчерпав все варианты создать новую тему, с вашим вопросм, учитывая все правила форума >>, ведь не правильно создав тему можно получить бан, ну или просто тему удалят и выдадут предупреждение!

• Работа с файлами
  • Как записать текст в файл?
  • Как получить содержимое файла?
  • Как проверить наличие указанного файла или каталога?
  • Как удалить строку из файла?
  • Как переиминовать файл или папку?
  • Как удалить файл?
  • Как создать папку?
  • Как удалить папку?
  • Как изменить расшиение файла?
  • Как создать поиск файла или папки по компьютеру?
• Проект
  • Как сделать установочный пакет для моей программы?
  • Как сделать, чтобы программа сворачивалась в трей?
  • Как сделать так, чтобы программа не запустилась без файла или если его размер больше, меньше определенного?
• Работа с компонентами DevelStudio
  • Кнопка
    • Как сделать так, чтобы при каждом нажатии на кнопку её картинка циклически менялась?
    • Как сделать так, чтобы после нажатия на кнопку загрузилась вторая форма?
    • Как сделать, неактивную кнопку, а если TCheckBox отмечен, то и кнопка активировалась?
    • Как сделать кнопку "Обзор" для выбора файлов?
  • Поля для текста
    • Как сделать так, чтобы в TEdit можно было вводить только цифры?
    • Как сделать поиск текста?
  • Изображения
    • Как сделать так, чтобы менялось изображение при наведении на него курсора?
  • Форма
    • Как изменить системные кнопки в заголовке формы?
  • Список
    • Как добавить строку?
    • Как добавить строку с передачей фокуса?
    • Как получить строку по индексу?
    • Как переименовать строку?
    • Как удалить строку?
    • Как очистить список?
    • Как сохранить строки в файл?
    • Как загрузить строки из файла?
  • Таблица
    • Как получить координаты выделенной ячейки?
    • Как изменить ширину столбца, высоту ячейки?
    • Как добавить строку?
    • Как удалить строку?
    • Как добавить столбец?
    • Как удалить столбец?
    • Как очистить таблицу?
    • Как изменить значение ячейки, столбца, строки?
• Работа с реестром
  • Внимание! Если вы не уверены, что всё делаете правильно лучше ничего не изменять в реестре, иначе это может привести к плохим последствиям и потери данных!
  • Сценарий работы с реестром!
  • Какие бывают корневые ключи?
  • Как создать ключ?
  • Как проверить наличие ключа?
  • Как удалить ключ?
  • Как записать значение в ключ?
  • Как проверить наличие значения в ключе?
  • Как удалить значение из ключа?
• Работа с интернетом и сетью
  • Почему не работает функция mail() ?
  • Как загрузить страницу или файл текстового формата из интернета
• Прочие
  • Как сделать паузу в коде?
  • Как получить путь к папке программы?
  • Как написать расширение для PHP?
  • Зависает форма в цикле, что делать?
  • Как определить имя пользователя, который вошёл в систему?
  • Как скопировать текст из TMemo или любой текст в буфер обмена? И как получить текст из буфера обмена?
  • Как выполнить php файл, лежащий на сервере, в программе?

[xsnakes]

file_put_contents("<путь к файлу>", "<текст>"); 

Пример:

file_put_contents("C:/FileName.txt", "Text"); 

file_put_contents("C:/FileName.txt", c("edit1")->text); 

Подробней php.su >>
К содержанию >>

[xsnakes]

$text = file_get_contents("<путь к файлу>"); 

Пример:

$text = file_get_contents("C:/FileName.txt");
print($text); 

Подробней php.su >>
К содержанию >>

[xsnakes]

$file = file_exists("<путь к файлу>"); 

Пример:

$file = file_exists("C:/FileName.txt");
if($file){
 message("Файл найден!");
}else{
 message("Файл не найден");
} 

Подробней php.su >>
К содержанию >>

[xsnakes]

Способ 1:

$str = file("C:/FileName.txt"); // получаем массив строк
unset($str[0]); // удаляем строку, в нашем случае под индексом 0, т.е. удаляем первую строку
file_put_contents("C:/FileName.txt", implode("",$str)); // записываем результат 

К содержанию >>

[xsnakes]

rename("<путь к файлу/папке>", "<путь к файлу/папке с новым именем>"); 

Пример переименования файла:

rename("C:/FileName1.txt", "C:/NewFileName.txt"); 

Пример переименования папки:

rename("C:/FolderName", "C:/NewFolderName"); 

Подробней php.su >>
К содержанию >>

[xsnakes]

unlink("<путь к файлу>"); 

Пример:

unlink("C:/FileName1.txt"); 

Подробней php.su >>
К содержанию >>

[xsnakes]

Способ 1:

rmdir("<путь к папке>"); // при этом папка должна быть пуста! 

Пример:

rmdir("C:/FolderName"); 

Подробней php.su >>
К содержанию >>

[xsnakes]

rename("<путь к файлу>", "<путь к файлу с новым расширением>"); 

Пример:

rename("C:/FileName.txt", "C:/FileName.php"); 

Подробней php.su >>
К содержанию >>

[xsnakes]

mkdir ("путь к папке"); 

Пример:

mkdir ("C:/FilderName"); 

Подробней php.su >>
К содержанию >>

[xsnakes]

Способ 1:

c("listBox1")->text .= "Text"; 

Способ 2:

c("listBox1")->items->add("Text"); 

К содержанию >>

[xsnakes]

c("listBox1")->itemIndex = c("listBox1")->items->add("Text"); 

К содержанию >>

[xsnakes]

$i = c("listBox1")->itemIndex;
print( c("listBox1")->items->strings[$i] ); 

К содержанию >>

[xsnakes]

$i = 0;
$text = "Line1";
c("listBox1")->items->setLine($i, $text); 

К содержанию >>

[xsnakes]

$i = c("listBox1")->itemIndex;
c("listBox1")->items->delete($i); 

К содержанию >>

[xsnakes]

Способ 1:

c("listBox1")->text = ""; 

Способ 2:

c("listBox1")->items->clear(); 

К содержанию >>

[xsnakes]

c("listBox1")->items->SaveToFile("FileName.txt"); 

К содержанию >>

[xsnakes]

c("listBox1")->items->LoadFromFile("FileName.txt"); 

К содержанию >>

[xsnakes]

1. Открыть ключ
2. Прочитать или записать данные
3. Закрыть ключ

К содержанию >>

[xsnakes]

HKEY_CURRENT_USER - раздел содержит настройки текущего активного пользователя, вошедшего в систему.

HKEY_USERS - раздел содержит все активные загруженные профили пользователей компьютера. Раздел HKEY_CURRENT_USER является подразделом раздела HKEY_USERS.

HKEY_LOCAL_MACHINE - раздел содержит параметры конфигурации, относящиеся к данному компьютеру (для всех пользователей).

HKEY_CLASSES_ROOT - является подразделом HKEY_LOCAL_MACHINE\Software\Classes. В основном, содержит информацию о зарегистрированных типах файлов и объектах COM и ActiveX.

HKEY_CURRENT_CONFIG - раздел содержит сведения о профиле оборудования, используемом локальным компьютером при запуске системы. Является ссылкой на HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardwa re Profiles\Current.

HKEY_DYN_DATA - раздел имеется только в реестре ОС семейства Windows 9x/ME. Содержит динамически изменяемые данные о компьютере (загрузка процессора, размер файла подкачки и т. п.).

Подробней wikipedia.org >>
К содержанию >>

[xsnakes]

$r = new TRegistry;
$r->rootKey(HKEY_LOCAL_MACHINE);
$r->CreateKey("\\SOFTWARE\\DevelStudio2010"); 

К содержанию >>

[xsnakes]

$key = "DevelStudio2010";

$r = new TRegistry;
$r->rootKey(HKEY_LOCAL_MACHINE);
// второй параметр отвечает за то создавать ключ если он не существует или нет
$r->OpenKey("\\SOFTWARE", 0);

if($r->KeyExists("$key")){
 message("Ключ $key найден!");
}else{
 message("Ключ $key не найден!");
}

$r->CloseKey(); 

К содержанию >>

[xsnakes]

$r = new TRegistry;
$r->rootKey(HKEY_LOCAL_MACHINE);
$r->DeleteKey("SOFTWARE\\DevelStudio2010"); 

К содержанию >>

[xsnakes]

$r = new TRegistry;
$r->rootKey(HKEY_LOCAL_MACHINE);
// второй параметр отвечает за то создавать ключ если он не существует или нет
$r->OpenKey("\\SOFTWARE\\DevelStudio2010", 1);

$r->WriteString("Имя", "Значение");

$r->CloseKey(); 

К содержанию >>

[xsnakes]

$r = new TRegistry;
$r->rootKey(HKEY_LOCAL_MACHINE);
// второй параметр отвечает за то создавать ключ если он не существует или нет
$r->OpenKey("SOFTWARE\\DevelStudio2010", 0);

if($r->ValueExists("DevelStudio2010")){
 message("Значение найдено!");
}else{
 message("Значение не найдено!");
}

$r->CloseKey(); 

К содержанию >>

[xsnakes]

$r = new TRegistry;
$r->rootKey(HKEY_LOCAL_MACHINE);
$r->OpenKey("SOFTWARE\\DevelStudio2010", 0);

$r->DeleteValue("Имя");

$r->CloseKey(); 

К содержанию >>

[xsnakes]

Способ 1. Визуально, через свойства формы
Выбираем форму, переходим на вкладку "Свойства", выбираем пункт настройки. В появившемся окне убираем галочки с не нужных кнопок (чекбоксы "закрыть", "свернуть", "развернуть").

Способ 2. С помощью php кода
Свойство формы borderIcons отвечает за то, какие кнопки будут в заголовке формы.

Существуют следующие кнопки:
biSystemMenu - системного меню формы
biMinimize - свернуть
biMaximize - развернуть
biHelp - справка

Примеры:

c("Form1")->borderIcons = 'biSystemMenu';
// отобразит системное меню формы и кнопку закрыть 

c("Form1")->borderIcons = 'biSystemMenu,biMinimize';
// отобразит системное меню окна, кнопку закрыть и кнопку свернуть 

c("Form1")->borderIcons = 'biMinimize';
// не должно ничего отображать, т.к. отсутствует свойство biSystemMenu... 

К содержанию >>

[xsnakes]

Способ 1.
Добавим строку перед $row:

$grid = c("grid1");
$row = $grid->row;

$grid->rowCount += 1;
for($i = $grid->rowCount-1; $i > $row; $i--){
 $grid->rows($i, $grid->rows($i-1));
}
$grid->rows($row, array()); 

Добавим строку после $row с передачей фокуса:

$grid = c("grid1");
$row = $grid->row;

$grid->rowCount += 1;
for($i = $grid->rowCount-1; $i > $row; $i--){
 $grid->rows($i, $grid->rows($i-1));
}
$grid->rows($row+1, array());
$grid->row += 1; 

К содержанию >>

[xsnakes]

Способ 1.
Удаляем всё подряд...

$grid = c("grid1");
$row = $grid->row;

for($i = $row; $i < $grid->rowCount-1; $i++){
 $grid->rows($i, $grid->rows($i+1));
}
$grid->rowCount -= 1; 

Следующий код, думаю, будет более полезен, чем простое удаление, т.к. присутствует условие против удаления фиксированных строк:

$grid = c("grid1");
$index = $grid->row;

if($index >= $grid->fixedRows){
 if($grid->rowCount > $grid->fixedRows+1){
  for($i = $index; $i < $grid->rowCount-1; $i++){
   $grid->rows($i, $grid->rows($i+1));
  }
  $grid->rowCount -= 1;
 }else{
  $grid->rows($index, array());
 }
} 

К содержанию >>

[xsnakes]

Способ 1.
Добавим столбец перед $col:

$grid = c("grid1");
$col = $grid->col;

$grid->colCount += 1;
for($i = $grid->colCount-1; $i > $col; $i--){
 $grid->cols($i, $grid->cols($i-1));
}
$grid->cols($col, array()); 

Добавим столбец после $col с передачей фокуса:

$grid = c("grid1");
$col = $grid->col;

$grid->colCount += 1;
for($i = $grid->colCount-1; $i > $col; $i--){
 $grid->cols($i, $grid->cols($i-1));
}
$grid->cols($col+1, array());
$grid->col += 1; 

К содержанию >>

[xsnakes]

Способ 1.
Удаляем всё подряд...

$grid = c("grid1");
$col = $grid->col;

for($i = $col; $i < $grid->colCount-1; $i++){
 $grid->cols($i, $grid->cols($i+1));
}
$grid->colCount -= 1; 

Следующий код, думаю, будет более полезен, чем простое удаление, т.к. присутствует условие против удаления фиксированных столбцов:

$grid = c("grid1");
$index = $grid->col;

if($index >= $grid->fixedCols){
 if($grid->colCount > $grid->fixedCols+1){
  for($i = $index; $i < $grid->colCount-1; $i++){
   $grid->cols($i, $grid->cols($i+1));
  }
  $grid->colCount -= 1;
 }else{
  $grid->cols($index, array());
 }
} 

К содержанию >>

[xsnakes]

Функция ->clear() вроде как для очистки таблицы, но по мойму она не очищает... Следующий код тому подтверждение:

$grid = c("grid1");
$rc = $grid->rowCount;
$cc = $grid->colCount;
$fr = $grid->fixedRows;
$fc = $grid->fixedCols;
$grid->clear();
$grid->rowCount = $rc;
$grid->colCount = $cc;
$grid->fixedRows = $fr;
$grid->fixedCols = $fc; 

Лично я пользуюсь пока следующими вариантами:

$grid = c("grid1");
for($y = 0; $y < $grid->rowCount; $y++){
 $grid->rows($y, array());
} 

Или:

$grid = c("grid1");
for($x = 0; $x < $grid->colCount; $x++){
 $grid->cols($x, array());
} 

[xsnakes]

Зададим значение любой ячейки, например ячейки 3x2, где 3 - столбец, 2 - строка:

c("grid1")->cells(3, 2, "Значение"); 

Зададим строке массив значений, например строке 4:

$array = array("Один", "Два", "Три");
c("grid1")->rows(4, $array); 

Зададим столбцу массив значений, например столбцу 3:

$array = array("Один", "Два", "Три");
c("grid1")->cols(3, $array); 

[Devel]

Функция php mail предназначена для отправки сообщений на е-майл в том случае если у вас есть свой локальный smtp сервер для отправки писем. На всех хостингах пхп такой сервер имеется. Вы наверно замечали, что функция mail() не работает в denwer'e, все по той же причине. В develstudio это функция тоже является нерабочей.

Чтобы отправить письмо, вам необходимо воспользоваться протоколом smtp, подключится к уделенному почтовому серверу (mail.ru и т.п.), залогинится под каким-нибудь пользователем и после этого отправлять письмо, оно будет отправляться от имени залогиненого.

Делать так в публичных программах не рекомендуется, когда ваша программа будет логиниться у кого-нибудь на компьютере, данные легко можно перехватить и узнать ваш логин и пароль от ящика.

[Devel]

Чтобы загрузить файл из интернета многие используют функцию file_get_contents('http://<путь в интернете>'). Этот метод не рекомендуется использовать, т.к. некоторые серверы вызывают ошибку этой функции. Если вы загружаете файл со своего хостинга и ошибки не наблюдается, тогда функцию можно использовать.

// загрузить html текст главной страницы, только текст!
$str = file_get_contents('http://develstudio.ru/'); 

Второй вариант: Использовать httpClient, но он требует curl:

c("httpClient1")->url = 'http://develstudio.ru/';
$str = c("httpClient1")->submit(); 

Третий вариант: в интернете вы можете найти кучу классов и функций для пхп на тему: как загрузить файл из интернете, надо просто искать.

[xsnakes]

Если требуется пауза меньше 5сек, то подойдёт следующий код:

• Функция sleep( int $sec ) принимает значение в секундах:
  

  c("form1")->text = "111";
  sleep(4); // замораживает выполнение на 4 сек.    
  c("form1")->text = "222"; 

• Функция delay( int $msec ) принимает значение в секундах:
  

  c("form1")->text = "111";
  delay(400); // замораживает выполнение на 400 миллисекунд.
  c("form1")->text = "222"; 

• Функция usleep( int $msec ) принимает значение в секундах, не работает в windows:
  

  c("form1")->text = "111";    
  usleep(400); // НЕ работает в windows!    
  c("form1")->text = "222"; 

Справка >>

Если требуется пауза больше 5сек, то лучше использовать объект таймер, иначе слишком большая задержка приведёт к тому, что ОС будет думать, что программа зависла.

function myFunc1(){
 global $index;
 $index++;
 switch($index){
  case 0: c("form1")->text = "111"; break;
  case 1: c("form1")->text = "222"; break;
 }
} 

setInterval(500, "myFunc1()" ); 

Дополнительно >>

К содержанию >>

[xsnakes]

Константа DOC_ROOT хранит путь к папке программы.

$dir = DOC_ROOT;
message($dir); 

К содержанию >>

[xsnakes]

if( !c("button1")->stat ){
 c("button1")->picture->assign(c("button2")->picture); // берём картинку из кнопки 2
 c("button1")->stat = true;
}else{
 c("button1")->picture->assign(c("button3")->picture); // берём картинку из кнопки 3
 c("button1")->stat = false;
} 

c("button1")->stat - это вымышленное свойство, оно создастся автоматически и будет хранить в себе наши значения...

[xsnakes]

dir_search("C:/", $files, "", true, true); // загоняем найденные файлы в $files массив
foreach ($files as $file){ // пробегаемся по массиву
   if (strpos($file, 'name')!==false){ // функция поиска подстроки (name) в строке - strpos
        c("listbox1")->items->add($file); // выводим в список найденные файлы
   }
} 

Если папок много, то долгая операция.

[xsnakes]

Для этого есть InnoSetup, NSIS, и подобные программы для создания инсталляций