Witam. Jak w temacie, mam problem z pobraniem tokena GG poprzez komponent GGLite.
Używam do tego funkcji:
function TFormRegister.GetToken: Boolean;
var
stream: TStream;
jpeg:TJpegImage;
const TokenFile = 'token.jpg';
begin
stream := TMemoryStream.Create;
GGLite.GGGenerateToken(TokenID, stream);
if stream.Size <> 0 then
begin
result := true;
stream.Seek ( 0, 0 );
jpeg := TJPEGImage.Create;
jpeg.LoadFromStream(stream);
jpeg.SaveToFile(ExtractFilePath(Application.ExeName) + TokenFile);
jpeg.Free;
stream.Free;
FormRegister.token.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + TokenFile);
deletefile(ExtractFilePath(Application.ExeName) + TokenFile);
end
else result := false;
end;
niestety.. zadziałało 3 - 4 razy i potem lipa. Zaznaczam że zwykły klient GG robi to bez problemu.
Może mam jakieś błedy w kodzie... ponieważ zwraca mi false;