02.05.2016, 19:35 | #1 (permalink) |
Новичок
Регистрация: 02.05.2016
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Читалка сообщений VK
Пытаюсь написать читалку сообщений через VK API Код:
procedure TDialogLoad.Execute; var i: Integer; JSON: TJSONValue; Res: TDateTime; begin http := THTTPSendEx.Create; http.GET(api_vk_link + 'messages.getDialogs' + access_token + '&preview_length=100', html); html := Utf8ToAnsi(html); http.ClearAll; JSON := TJSONObject.ParseJSONValue(html); for I := 0 to JSON.GetValue<TJSONArray>('response.items').Count - 1 do begin Res := UnixToDateTime(StrToInt(JSON.GetValue<string>('response.items[' + inttostr(I) + '].message.date'))); date := DateToStr(Res); body := JSON.GetValue<string>('response.items[' + inttostr(I) + '].message.body'); user_id := JSON.GetValue<string>('response.items[' + inttostr(I) + '].message.user_id'); Synchronize(sync); end; http.Free; end; procedure TDialogLoad.sync; var dynpanel: TPanel; begin dynpanel := TPanel.Create(Form1.ScrollBox1); with dynpanel do begin Parent := Form1.ScrollBox1; Height := 65; Align := alTop; end; with TImage.Create(dynpanel) do begin Parent := dynpanel; Height := 50; Width := 50; Left := 16; top := 8; end; with Tlabel.Create(dynpanel) do begin Parent := dynpanel; Left := 72; top := 8; Caption := user_id; end; with Tlabel.Create(dynpanel) do begin Parent := dynpanel; Left := 72; top := 35; Caption := date; end; with Tlabel.Create(dynpanel) do begin Parent := dynpanel; Left := 184; top := 24; Caption := body; end; end; Если да, то есть пару вопросов по коду: 1) Панели создаются уже над созданными панелями, а не идут вниз, и получаются что диалоги идут снизу вверх, как исправить? 2) Мне после клика по какой-то панельки нужно загрузить диалог, как можно как-то привязать id диалога ("id") к панелям? (надеюсь понятно изъяснился...) |
02.05.2016, 19:35 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Эти темы могут вам помочь Не робит Читалка а10. Читалка Планшет или читалка? Читалка для Symbian 9.4 Читалка DJVU |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|