Skip to forum content
My Visual Database
A Simple Solution for Creating Databases
You are not logged in. Please login or register.
Active topics Unanswered topics
Search options (Page 50 of 68)
vovka3003 wrote:Блокировка происходит из-за того, что существующий в программе веб-запрос работает синхронно (ожидает получения данных). В вашем случае можно использовать асинхронный вызов winhttprequest через ole.
Пробовал такое, брал с примеров ... Но то ли руки у меня кривые то ли у программы нет такого..
в тот момент пока программа обменивается даными в вебсервисами она (зависает) и продолжить работу можно только по окончанию этого процесса...
мне пужно,что бы программа по таймеру обменивалась данными с другой БД через JSON, но при этом программа должна продолжать работу..
Да, точно
if Pos('Connection is not connected', Msg) then
Спасибо!
нужен поиск по редактору скриптов
кто нибудь работал с ними https://azure.microsoft.com/ru-ru/
их услуги стоят того?
когда был подростком зависал на торрентах.. сейчас предпочитаю покупать лицензии..в крайнем случае можно скачать ломанную программу поробовать поработать в ней и если все ок , то купить лицензию..
а тут просто желание скомпилировать свой проект, для этого все равно нужно покупать лицензю, иначе нарушение авторских прав .
Когда вы покупаете лицензию, вы получаете право компилировать свои проекты.
Когда вы компилируете чужой проект за деньги, то вы наносите ущерб правооблодателю.
Проще купить лицензию и не париться по этому вопросу..
Дмитрий... Если это возможно, то для таких случаев можно было бы рализовать удаленную сборку проекта.. скажем за 5 баксов...
ivan wrote:я так понимаю на мой вопрос так и не будет ответа. Спасибо.
сейчас выходные ...
все проблема решена...
TIdSSLIOHandlerSocketOpenSSL прописывать не нужно ...
файл получаем как обычно
HTTPGet('https://......',False);
.....
просто нужно было в корень проекта поместить файлы библиотеки openssl
libssl32.dll и libeay32.dll
архив с файлами прилогаю
vovka3003 wrote:Откуда и куда его нужно получить..?
к примеру от сюда
https://www.service-vv.ru/hw.txt
и поместить в TStringList
мне нужно получить текстовый файл по HTTPS
на сколько я понимаю,мне нужно использовать TIdSSLIOHandlerSocketOpenSSL
в сети есть мого примеров, но я не могу понять как это реализовать в MVDbase
перестал работать обработчик ошибки
function OnSQLException(Sender: TObject; Msg: string; SQL: string): boolean;
var
ini : TInifile;
begin
ini :=TIniFile.Create(ExtractFilePath (ParamStr (0))+'settings.ini');
// если не подключен, для MySQL
if Pos('Code: 10061', Msg)>0 then
begin
result := True; // для предотвращения системного сообщения
// сообщение
if IDRETRY = MessageBox(mess1, mess2, MB_RETRYCANCEL+MB_ICONINFORMATION)then begin
frmLogin.Close;
OpenFile('start.bat')
end else
ini.WriteString('Options', 'DBMS', 'sqlite');
frmLogin.Close;
OpenFile('start.bat')
end;
end
DriveSoft wrote:Также лучше использовать SSL подключение к серверу
это вроди протокол HTTPS , я правильно понимаю?
мне нужно сделать два вида импорт/экспот
1. Вся бд (как есть)...
2. Выбор конкретной таблицы и полей
может есть такие примеры?
ну в приципе заголов и есть вопрос
как огрганизовать перенос записей из SQLite в MySQL и обратно
мне нужно что бы программа соединялась с MySQL в сети, программа естественно массового пользования..
думал реализовать работу с БД через API, но это долго реализовывать
возник такой вопрос ...
если программа будет соединятся прямо с БД в сети какой могут возникнуть проблемы? или я зря переживаю? и если парраметры соединения будут прописаны в скрипте возможно это дело декомпилировать или это не совсем реально?
если использовать (Встроенные возможности), то программа может работать либо с SQLite либо с MySQL.
а если использовать к примеру SQLite по умолчанию и в тоже время получать или передовать данные в MySQL с помошью скрипта, такое возможно?
или с начала нужно будет отключить SQLite?
спасибо!
еще вопрос:
когда запускаешь проект на MySQL постоянно первым появляется окно подключения к БД, можно как-то это убрать если подсключение было удачно и вызывать это окно когда хочешь поменять настройки подключения к БД ?
при переходе с SQLite на MySQL эта часть скрипта вызывает ошибку
result := SQLExecute('SELECT IFNULL(Max(record_count), 0) FROM "'+TableName+'"') + 1;
как сделать выбор размера листа печати?
procedure frmComDoc_bPrint_OnClick (Sender: TObject; var Cancel: boolean);
var
Printer:TPrinter;
Canvas:TCanvas;
Image:TImage;
begin
Printer:=TPrinter.Create;
Canvas:=TCanvas.Create;
Image:=TImage.Create(frmComDoc);
Image.Picture.LoadFromFile(frmComDoc.dbImage.dbFileName);
With Printer do Begin
Printer.BeginDoc;
Printer.Canvas.StretchDraw(0,0,PageHeight,PageWidth,Image.Picture.Graphic);
Printer.EndDoc;
end;
end;
VascoMorais wrote:Sibprogsistem, so... any news on how i can use phpmailer to send the export pdf files?
Sorry to bother you but i really really need this to work 
к сожалению не получается 
procedure Form1_TableGrid1_OnChange (Sender: TObject);
var
i, Ii, cR, cC,q: integer;
sID: string;
begin
cR := Form1.TableGrid1.RowCount - 1;
cC := Form1.TableGrid1.Columns.Count -1;
Form1.TableGrid1.BeginUpdate;
for i := 0 to cR do
begin
if (StrToDate(Form1.TableGrid1.Cells[1,i])- Date <=0) and (StrToDate(Form1.TableGrid1.Cells[1,i])- Date >=0) then
begin
for Ii:=0 to Cc do Form1.TableGrid1.Cell[Ii,i].Color := clAqua;
end;
if (Date - StrToDate(Form1.TableGrid1.Cells[1,i]) >0) then
begin
for Ii:=0 to Cc do Form1.TableGrid1.Cell[Ii,i].Color := $006F6FFF;
end
end;
for i := 0 to cR do
begin
if Form1.TableGrid1.Cells[0,i] = 'Нет' then Form1.TableGrid1.Cell[0,i].Color := clRed;
if Form1.TableGrid1.Cells[0,i] = 'Да' then Form1.TableGrid1.Cell[0,i].Color := clgreen;
end;
begin
q := 0;
for i := 0 to cR do
if Form1.TableGrid1.Cells[0, i] <> '' then Inc(q);
Form1.TableGrid1.Columns[0].Footer.Caption := IntToStr(q); // result
end;
Form1.TableGrid1.EndUpdate;
end;
Posts found: 1,226 to 1,250 of 1,694
