// ---------------------------------------------------------------------------
void TClientGood::DataIn(int col, TObject *Sender) {
UnicodeString s;
TStringList *sld = fFindOrders->slspsk;
sld->Clear();
s = DataOut(col);
if (s != "") {
sld->DelimitedText = s; // получаем старые данные
}
// вот теперь можно пробовать добавить новые данне
if (fUserList->Visible) {
// надо выбрать только чекнутые
for (int i = 0; i < fUserList->clUsers->Count; i++) {
if (fUserList->clUsers->Checked[i]) {
TryAdd(sld, fUserList->clUsers->Items->Strings[i], Sender);
}
}
}
else
TryAdd(sld, fConnect->curUser->login, Sender);
s = sld->DelimitedText;
// здесь получившиеся данные надо писать прямо в объект
DataIn(col, s);
}
void OLED_draw_img(uchar x,uchar y,uchar x_size,uchar y_size,const uchar* image)
{
ComOut(0x15); // Set Column Address
ComOut(x); // Start
ComOut(x+x_size-1); // End
ComOut(0x75); // Set Row Address
ComOut(y); // Start
ComOut(y+y_size-1); // End
for(int i=0;i<(x_size*y_size*2);i++)
{
DataOut(pgm_read_byte(image + i));
}
}
int Test_Net_TCP_ClientServer_ServerConnection::OnConnected()
{
int ok = 1;
if (ok) {
Test_Net_TCP_ClientServer_TCPServer::Get()->OnClientConnectionAccepted();
String sData = g_Test_Net_TCP_ClientServer_sExpectedData;
unsigned char* pData = (unsigned char*) (const char*) sData;
size_t nDataLen = ((String)g_Test_Net_TCP_ClientServer_sExpectedData).bytes();
ok = DataOut(pData, nDataLen);
}
// We don't close here, this way we test connection close by client
//Close();
return ok;
}
FDKCharacterData ADKPlayerState::GetCurrentCharacterData()
{
FDKCharacterData DataOut(CurrentLifes, CurrentScore, CurrentLevel, bFinishedGame);
return DataOut;
}
int Test_CompareTCPHTTPData_TCPConnection::OnConnected()
{
const char* pBuf = "GET / HTTP/1.0\r\nHost: www.virtual-presence.org\r\nConnection: close\r\n\r\n";
DataOut((unsigned char*) pBuf, ::strlen(pBuf));
return 1;
}
int Test_TCPConnection_SendRecvCloseAutoDelete::OnConnected()
{
const char* pBuf = "GET /xx HTTP/1.0\r\nConnection: close\r\n\r\n";
DataOut((unsigned char*) pBuf, ::strlen(pBuf));
return 1;
}
