Сообщений в теме: 1698

[kost1988]

Неужели никто незнает? Там он както закодирован, а мне для программы нужно. Чтобы он отчет формировал с фото!!!А как фотки подципить, незнаю, путь закодирован както! На дэлфи программу своял!!!

Сообщение отредактировал kost1988: 02 Декабрь 2014 - 16:11

[Deadushka]

На этом форуме этот вопрос поднимался, ищите в профильных темах

[Андрей39]

Здравствуйте, подскажите в чем может быть проблема. База АКУС установлена на отдельной машине с Win7. Недавно появилась необходимость у становить три рабочих места. Устанавливал версию 2.4.7. При установке программы (после подключения сетевого диска с базой) АКУС не показывает в окне установки базы сетевой диск, а просто предлагает установить программу на диск С. Пытался в ручную прописать путь к базе - результата нет, сетевой диск не видит - пишет "путь не существует".

[iqmaster]

Андрей39 (16 Декабрь 2014 - 10:46) писал:

Здравствуйте, подскажите в чем может быть проблема. База АКУС установлена на отдельной машине с Win7. Недавно появилась необходимость у становить три рабочих места. Устанавливал версию 2.4.7. При установке программы (после подключения сетевого диска с базой) АКУС не показывает в окне установки базы сетевой диск, а просто предлагает установить программу на диск С. Пытался в ручную прописать путь к базе - результата нет, сетевой диск не видит - пишет "путь не существует".

??? А вы внимательно читали инструкции? АКУС не устанавливается на сетевой диск, он ставиться на локальный диск компьютера, а уже в файле конфигурации прописывается путь к подключенному сетевому диску с базой.

[Андрей39]

Наверно я не правильно написал.. Устанавливаю АКУС естесственно на локальный диск. Но никак не могу подключить базу, прописываю в файле конфигурации правильно, но постоянно пишет что не найден путь к базе.

[forever]

Тессолор (25 Декабрь 2014 - 00:58) писал:

Здравствуйте, вдруг появилась проблема на клиентской машине перестал видеть файл station.ini т.е. при запуске АКУС пишет что файла не существует хотя файл есть. Ярлык проверил - путь правильный, файл удалял вставлял другой и руками переписывал пути для папок, если кто сталкивался с данной проблемой подскажите пути её решения.
Заранее спасибо.

Нам помогло переподключение сетевого диска.

[TwoFace]

kost1988 (01 Декабрь 2014 - 16:39) писал:

из базы АКУСа надо вытащить путь (раскодировать) к фотографиям осуждённых, он закодирован символами в таблице CARD.dbf столбец VFOTOPROF, либо в таблице FOTOTEKA.dbf столбец VFOTOPROF. А какой путь там по умолчанию?

Если вопрос еще актуален, то я делал так:

AnsiString vfotofas, PhotoFile;
__int64 number;
__int64 md;
__int64 p;

int shift, i;
unsigned long ascii;
//----- Фото -----
this->ADOQuery1->SQL->Text = "select vfotofas from Datafototeka where itemperson=:itemperson and isfooter=1";
this->ADOQuery1->Parameters->ParseSQL(this->ADOQuery1->SQL->Text, true);
this->ADOQuery1->Parameters->ParamValues["itemperson"] = MainForm->DBGrid1->DataSource->DataSet->Fields->FieldByName("itemperson")->AsString;
this->ADOQuery1->Open();

//----- формирование имени файла -----
if(this->ADOQuery1->RecordCount > 0)
{

vfotofas = this->DataSource1->DataSet->Fields->FieldByName("vfotofas")->AsString.Trim();
p = 142;
shift = 34;
number = 0;

for(i=0; i<vfotofas.Length(); i++)
{
ascii = (unsigned char) vfotofas[i+1] - shift;
number += ascii * pow(p, (vfotofas.Length() - i - 1));
}

if(MainForm->ds[MainForm->ds.Length()] == '')
PhotoFile = MainForm->ds + "Foto" + IntToStr(number).SubString(1,7) + "" + IntToStr(number) + ".jpg";
else
PhotoFile = MainForm->ds + "Foto" + IntToStr(number).SubString(1,7) + "" + IntToStr(number) + ".jpg";

//----- отображение фото по PhotoFile -----
if(number != 0)
{
TJPEGImage * JPG = new TJPEGImage();
JPG->LoadFromFile(PhotoFile);
this->Photo->Picture->Assign(JPG);
this->Photo->Update();
this->vfotofas = PhotoFile;
}
else
{
TJPEGImage * JPG = new TJPEGImage();
JPG->LoadFromFile(ExtractFilePath(Application->ExeName)+"ImagesNoPhoto.jpg");
this->Photo->Picture->Assign(JPG);
this->Photo->Update();
this->vfotofas = ExtractFilePath(Application->ExeName)+"ImagesNoPhoto.jpg";
}
}
else
{
TJPEGImage * JPG = new TJPEGImage();
JPG->LoadFromFile(ExtractFilePath(Application->ExeName)+"ImagesNoPhoto.jpg");
this->Photo->Picture->Assign(JPG);
this->Photo->Update();
this->vfotofas = ExtractFilePath(Application->ExeName)+"ImagesNoPhoto.jpg";
}

Код на С++, думаю несложно переделать на Delphi

MainForm->ds - Путь к базе данных ПТК АКУС ИК.

Самое основное выделено жирным.

Написано для vfotofas, для vfotoprof по моему тоже самое...

Сообщение отредактировал TwoFace: 26 Декабрь 2014 - 17:17

[amber]

Здравствуйте! Помогите запустить модуль протоколирования. При запуске выдает такую ошибку:

В .ini файле путь к метаданным прописан, чего еще надо?

И еще, может у кого такое было... у осужденной пропали фотографии в базе данных, пропали родственники и поощрения. Подняв архивные копии, разглядела, что на ее фото, которые были прикреплены к базе, расширения стоят *.bak. Поменяла на jpg, потом пришлось крепить заново. И эта одна, которая обнаружилась, а сколько их еще таких может быть... Почему такое могло произойти? Почему пропали поощрения и родственники, вообще загадка. Поможет ли модуль протоколирования? Пользователей в базе - человек 30.

Сообщение отредактировал amber: 30 Декабрь 2014 - 11:40

[forever]

мой 1.42 не хочет расти в 1.43. Что делать?

Прикрепленные файлы

•  ошибка обновления.JPG   45,12К   35 Количество загрузок:

[iqmaster]

forever (18 Январь 2015 - 17:27) писал:

мой 1.42 не хочет расти в 1.43. Что делать?

Судя по ошибке у вас либо кто-то работает в АКУС, либо не хватает прав доступа к каталогу базы. Пользователи все отключены? Обновляете базу на сервере?

[forever]

iqmaster (18 Январь 2015 - 17:41) писал:

Судя по ошибке у вас либо кто-то работает в АКУС, либо не хватает прав доступа к каталогу базы. Пользователи все отключены? Обновляете базу на сервере?

Вроде бы все вышли. Насчет прав доступа сказать сложно, потому что раньше такой ошибки не возникало. А сейчас и обновить не можем и восстановить 1.42 не получается

[iqmaster]

forever (18 Январь 2015 - 17:47) писал:

Вроде бы все вышли. Насчет прав доступа сказать сложно, потому что раньше такой ошибки не возникало. А сейчас и обновить не можем и восстановить 1.42 не получается

Судя по скрину, вы пытались обновить базу на сетевом диске с клиентской машины. Базу желательно обновлять непосредственно на сервере, где она физически расположена под учеткой администратора, тогда проблем не будет. Восстановите базу из резервной копии. Попробуйте еще раз сделать, но на сервере, физически отключив пользователей.

[INTEL]

Здравствуйте.
прошу помощи.
возникла проблема при обновлении с 1.42 на 1.43
обновление прошло с половинчатым успехом
обновилась только действующая картотека а картотека выбывших нет.
причину знаю просто не поставил галочку "обновлять картотеку выбывших".
а вот как теперь обновить отдельно выбывших незнаю..
пробовал
подсунуть при обновлении старую копию базы и обновить вместе с картотекой. - не помогло.(ругается при проверке необходимости обновления )
..
мысли
"восстановить" из резервной копии 1.42 и обновить всё все в месте. но (не знаю как провести восстановление).
заранее спасибо.

[Deadushka]

Мысля правильная, только я бы восстановил "левую"(резервную) копию и провёл бы обновление..