CashTAN logo
   
 
Главная
Новости
Продукты
Примеры решений
Информация
Партнеры
Сертификация
Поддержка
  Форум
  Вопрос - ответ
  Список рассылки
Download
Контрактная разработка
О компании

Вернуться
Delphi подключение к серверу.
Павел
0 - 25.06.2013-12:33
Здравствуйте.
Можно попросить кусок кода для Delphi отвечающий
за подключение к POS серверу и получение списка любых протоколов.
Павел
1 - 25.06.2013-13:41
Помогите разобраться
Вот код:
var con:olevariant;
rs:variant;
sProt,spos:String;
rc,fc:Longword;
begin
con:=CreateOleObject('PosClient.Connection');
con.Connect(Секция, пароль, '127.0.0.1', 11111);
con.DownloadGoodsList;
Con.FinishTask;
rs:= Con.TaskRecordset;
rs.MoveFirst;
rc:=rs.RecordCount;
fc:=rs.Fields.Count;
sProt:= rs.Fields('Name').value;
Con.Disconnect;
edit1.text:=sProt+' '+inttostr(rc)+' '+inttostr(fc);
end;
Record и Fields count получаю, а значение поля никак.
Выдает ошибку 'Член группы не найден'.
Помогите понять в чем проблема.
Jekky
2 - 25.06.2013-14:04
попробуйте sProt:= rs.Fields.Field('Name').Value;
Павел
3 - 26.06.2013-09:52
Разобрался. Нужно было использовать квадратные скобки.

Добавить сообщение
Ваше имя 
Пароль (для зарегистрированных) 
email 
Сообщение 
Введите код, изображенный на картинке
Для зарегистрированных пользователей можно не вводить 
Внимание - введите код без первого символа!

0.03328 seconds