Лидеры
Популярный контент
Показан контент с высокой репутацией 20.11.2016 во всех областях
-
[Android][XE10] Сжатие текста
AngryOwl и 2 других отреагировал Равиль Зарипов (ZuBy) за вопрос
// uses zLib; var aCompress: TBytes; begin aCompress := ZCompressStr('Привет FMX Developer :)', TZCompressionLevel.zcMax); ShowMessage(ZDecompressStr(aCompress)); end;3 балла -
http://docwiki.embarcadero.com/CodeExamples/Berlin/en/ZLibCompressDecompress_(Delphi)3 балла
-
[ListBox] TAction
AngryOwl и ещё один отреагировал Равиль Зарипов (ZuBy) за вопрос
ShowShareSheetAction1.TextMessage := 'Текст'; ShowShareSheetAction1.ExecuteTarget(<тут контрол>);2 балла -
Поток в Firemonkey Android
Kitty отреагировал Brovin Yaroslav за вопрос
После окончания метода getpic ARC удаляет ваш поток, так как ссылок на него нету. Нужно вынести переменную потока в поле класса, чтобы гарантировать наличие одной ссылки на ваш поток.1 балл -
TIdTCPClient на Android
Kitty отреагировал Евгений Корепов за вопрос
procedure TDM.TCPServerExecute(AContext: TIdContext); Var AData : TIdBytes; Status : TStatus; begin // AContext.Connection.IOHandler.CheckForDataOnSource(10); if not AContext.Connection.IOHandler.InputBufferIsEmpty then begin AContext.Connection.IOHandler.ReadBytes(AData,VoiceBufferByteLength); // AContext.Connection.IOHandler.ReadStream(); if AData<>Nil then begin Status.DataType:='recieved'; Status.ByteOut:=0; Status.ByteIn:=Length(AData); QueueStatus.PushItem(Status); if Length(AData)=VoiceBufferByteLength then begin BytesToRaw(AData,FVoiceBuffer.Data^,VoiceBufferByteLength); QueuePlay.PushItem(FVoiceBuffer); end; end; end; end; Вот как то так попробуйте1 балл