Witajcie,
mam problem z zaimplementowaniem funkcji doLogin, funkcja nie zwraca mi id sesji. Nie wiem o co chodzi, funkcje doGetUserID i doQueryAllSysStatus zwracają mi poprawne dane. Implementacja:
(HTTPRIO1 as AllegroWebApiPortType).doLogin('login', 'haslo', 228, 'klucz', wersja, odpSesja, odpOffset, odpCzas);
editIDsesji.Text := (odpSesja);
i wynik jest null. Poza tym zwraca mi jeszcze takie coś:
odpOffset = 4420148
odpCzas = 4294967296
co też chyba jest błędem. Zaimplementował ktoś może te funkcje i działają mu poprawnie?
Dodam, że zmieniłem jeszcze to:
W pliku borland\src\soap\OPToSoapDomConv.pas (dla Delphi 6/7) lub w pliku borland\bds\4.0\source\win32\soap\OPToSoapDomConv.pas (dla Turbo Delphi), w okolicach linii 971, odnaleźć trzeba fragment:
if MD.Params[J].Name = ExtractLocalName(Node.NodeName) then
następnie należy podmienić go na:
if StringReplace(MD.Params[J].Name, '_', , [rfReplaceAll]) = StringReplace(ExtractLocalName(Node.NodeName), '-', , [rfReplaceAll]) then
Ale tego już w tym pliku nie mam:
Dodatkowo, w tym samym pliku, w okolicach linii 2300 odnaleźć należy:
if SameText(InternalName, PropList[I].Name) then
i zamienić na:
if StringReplace(InternalName, , , [rfReplaceAll]) = StringReplace(PropList[I].Name, '_', '', [rfReplaceAll]) then