Цитата: AlexGM от 18 мая 2024, 19:51Из нереализованных идей: считывать из окна 1С главное меню, окна (и здесь реализация через ВК очень помогает). Отправлять изменения на клиента(ов) - реализация кроссплатформенная и красочная. События с клиента передавать обратно в 1С. На выходе получаем тонкий клиент 7.7. Ядро 1С работает под виндой/эмуляцией на сервере, клиенты хоть на андроиде. Нью-Васюки становятся шахматной столицей мира..
Если вдруг дойдет до создания альтернативного ядра 1С - оно просто займет нужное место в этой архитектуре.
Цитата: Злоп от 18 мая 2024, 19:33Если жто всё доведено до ума и рабо о способно без особых глюков - это хорошее делоВ серверной версии на дельфи, каюсь, глюки имеются. Очень тяжело прикручивал туда HTTP, нужна была реализация метода PUT своя. Там, похоже, и глючит. На Go версии все реализовано на массовых библиотеках без напилинга, тьфу тьфу - ни одного сбоя. Если кто любит Дельфи - могу выложить серверную часть на нем, но для использования, тем более в бою - Go. Тем более они по памяти примерно одно кушают. Что даже странно - сервер на Go 64 битный. Правда, без GUI, но с веб панелью управления.
Цитата: Злоп от 18 мая 2024, 19:28"флаг "Пришла команда".
- а откуда ВК этот флаг видит?
type Pack struct {
Cmd string //11
Reply string //4
Len uint //4
Data *[]byte
}
func (fm *FileMap) Write(ACmd string, AReply string, AData string) error {
// запишем длину данных
lLen := int32(len(AData))
sl := unsafe.Slice(&lLen, 4)
lenBuff := *(*[]byte)(unsafe.Pointer(&sl))
copy(fm.Buff[15:], lenBuff) //Len
// запишем данные
copy(fm.Buff[19:], []byte(AData)) //Cmd
// запишем команду последней, когда пакет готов
lCmd := make([]byte, 11)
copy(lCmd, ACmd[:])
copy(fm.Buff[0:], lCmd) //Cmd
return nil
}
lFM.Write("INIT", "", "")
PI := winapi.StartApplication(am.CommandLine + " /ID" + am.Token)
_, err = lFM.WaitFor("ANSWER", 5)
if err != nil {
return err
}
am.Handle = PI.Process
lFM.Write("READY", "", "")
Цитата: Злоп от 18 мая 2024, 16:45А ВК постоянно держит связь с сервером приложений или общение с сервером приложений только исключительно через файл отображения?ВК то не подозревает ни о чем, особенно о сервере приложений. Для нее главное - отображаемый файл и флаг "Пришла команда". Отработать команду (вызывать функцию соответствующую с параметрами) и положить результат обратно. Кусок кода из ВК, обращение к 1С для выполнения команды:
if lCmd='ec' then begin
try
Result_EC:='';
lVal:='';
lRes:='250';
pEvent._AddRef;
pEvent.ExternalEvent('TLNExt5', 'Command', lParam);
except
on E: Exception do begin
lVal:=E.Message;
lRes:='300';
end;
end;
end;
if lCmd='eb' then begin
v77:=pConnect.AppDispatch;
IDispatch(v77)._AddRef;
lVal:='';
lRes:='250';
try
lr:=v77.ExecuteBatch(lParam);
if lr=0 then begin
lVal:='';
lRes:='301';
end;
except
on E: Exception do begin
lVal:=E.Message;
lRes:='300';
end;
end;
end;
if lCmd='ee' then begin
v77:=pConnect.AppDispatch;
IDispatch(v77)._AddRef;
lVal:='';
lRes:='250';
try
lVal:=v77.EvalExpr(lParam);
except
on E: Exception do begin
lVal:=E.Message;
lRes:='301';
end;
end;
end;
if lCmd='ee' then begin
try
lVal:=F1C.EvalExpr(lParam);
except
on E: Exception do begin
lVal:='301'+#9+E.Message;
end;
end;
end;
if lCmd='ec' then begin
try
lVal:=F1C.ExecCmd(lParam);
except
on E: Exception do begin
lVal:='301'+#9+E.Message;
end;
end;
end;
if lCmd='eb' then begin
try
lVal:=F1C.ExecBatch(lParam);
except
on E: Exception do begin
lVal:='301'+#9+E.Message;
end;
end;
end;