Форум программистов, компьютерный форум CyberForum.ru

Обмен данными между приложениями на Android и ПК Windows - Android

Войти
Регистрация
Восстановить пароль
Другие темы раздела
Android Не перемещает приложения http://www.cyberforum.ru/android-dev/thread1553776.html
Здравствуйте! У меня планшет Prestigio multipad PMP5580C DUO с недавнего времени перестал перемещать приложения на SD карту. Раньше всё было хорошо, всё перемещалось без проблем, а это недавно заметила, что новые приложения не перемещает. Окошечко перемещения активно, нажимаю, пишет "Не удалось переместить приложение" хотя на карте полно места и всёёё Пробовала перемещать старые приложения на...
Android Бредятина с картинками Засунул в drawable картинку 123.png. При запуске приложения она должна загрузиться. Но вместо этого пишет это "errorjava.io.FileNotFoundException: drawable/123.png", а чуть ниче кучу строк с этим "Pointer 0x0, not in getPreloadedDrawables?". Прикол в том, что есть приложение в котором используется точно такой же код и оно работает и грузит картинки!!! Помогите что делать?? MainActivity ... http://www.cyberforum.ru/android-dev/thread1553720.html
Android Повторение Background
Здраствуйте! У меня есть картинка 32*32. Но при применение её на задний фон, она растягивается на весь экран. Как сделать чтобы она повторялась? Как в html, может знает кто)
Android из c# byte получить картинку
Есть массив байтов приходит из веб сервиса Как из этого получить картинку? p.s. мучаюсь 2 дня нечего не получается... пробую и 255-128 = 127 делать .. все равно нечего не получается..
Android Сворачивание приложения при нажатии кнопки "Назад" http://www.cyberforum.ru/android-dev/thread1553621.html
Как сделать, чтобы при нажатии кнопки "назад" приложение не закрывалось, а сворачивалось?
Android ListView с SVG изображениями Здравствуйте! Есть ListView с SVG картинками. Всё загружается, но при пролистывании список подтормаживает. Как можно убрать эти тормоза? подробнее

Показать сообщение отдельно
Вячеслав_1988
0 / 0 / 0
Регистрация: 16.10.2015
Сообщений: 21
23.11.2015, 00:57  [ТС]     Обмен данными между приложениями на Android и ПК Windows
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Private Sub cmdSendData_Click()
'ГЋГІГЇГ°Г*âëÿåì Г¤Г*Г*Г*ûå
Winsock1.SendData txtSendData.Text
'Г‡Г*ïèñûâГ*ГҐГ¬ Гў ëîã Г·Г*ГІГ*
txtOutput.Text = txtOutput.Text & vbNewLine & "Ñåðâåð: " & txtSendData.Text
'ÑòèðГ*ГҐГ¬ ГІГҐГЄГ±ГІ
txtSendData.Text = ""
'ïåðåäГ*ГҐГ¬ ôîêóñ ââîäГ* òåêñòîâîìó ïîëþ
txtSendData.SetFocus
End Sub
 
Private Sub Form_Load()
'Áëîêèðóåì ëîã Г·Г*ГІГ* îò ââîäГ*
txtOutput.Locked = True
'ÓñòГ*Г*Г*âëèâГ*ГҐГ¬ Г°Г*çìåðû ýëåìåГ*òîâ
txtOutput.Move 0, 0, Me.Width, Me.Height * 0.6
txtSendData.Move 0, txtOutput.Height + 10, Me.Width
cmdSendData.Move 0, txtSendData.Top + txtSendData.Height, Me.Width
'ÓñòГ*Г*Г*âëèâГ*ГҐГ¬ äðóãèå ñâîéñòâГ*
txtOutput.Text = ""
txtSendData.Text = "Ââåäèòå Г±ГѕГ¤Г* ГІГҐГЄГ±ГІ, ÷òîáû îòïðГ*ГўГЁГІГј"
cmdSendData.Caption = "ГЋГІГЇГ°Г*ГўГЁГІГј"
'ÓñòГ*Г*Г*âëèâГ*ГҐГ¬ ïîðò äëÿ ïðîñëóøèâГ*Г*ГЁГї
Winsock1.LocalPort = 6574
'ГЌГ*Г·ГЁГ*Г*ГҐГ¬ ïðîñëóøèâГ*ГІГј
Winsock1.Listen
End Sub
 
Private Sub txtSendData_KeyPress(KeyAscii As Integer)
'Åñëè Г*Г*Г¦Г*ГІ Enter - îòïðГ*âëÿåì Г¤Г*Г*Г*ûå
If KeyAscii = 13 Then cmdSendData_Click
End Sub
 
Private Sub Winsock1_Close()
'Г‡Г*êðûâГ*ГҐГ¬ ñîåäèГ*ГҐГ*ГЁГҐ, åñëè Г®Г*Г® ГҐГ№ГҐ Г*ГҐ Г§Г*êðûòî
If Winsock1.State <> sckClosed Then Winsock1.Close
'ГЌГ*Г·ГЁГ*Г*ГҐГ¬ ïðîñëóøèâГ*ГІГј ГҐГ№ГҐ Г°Г*Г§
Winsock1.Listen
End Sub
 
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
'ГЋГ±ГІГ*Г*Г*âëèâГ*ГҐГ¬ ïðîñëóøèâГ*Г*ГЁГҐ
'(ГЋГЎГїГ§Г*òåëüГ*Г®!)
Winsock1.Close
 
'Ïîäêëþ÷Г*ГҐГ¬ êëèåГ*ГІГ*
Winsock1.Accept requestID
 
'ГЋГ·ГЁГ№Г*ГҐГ¬ ëîã Г°Г*çãîâîðГ*
txtOutput.Text = "ÅÑÒÜ ÏÎÄÊËÞÞ×ÅÍÈÅ!!!"
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim s$
'ÏðèГ*ГЁГ¬Г*ГҐГ¬ ГўГ±ГҐ Г¤Г*Г*Г*ûå
Winsock1.GetData s, vbString
 
'Г‡Г*ïèñûâГ*ГҐГ¬ Г¤Г*Г*Г*ûå Гў ëîã Г°Г*çãîâîðГ*
txtOutput.Text = txtOutput.Text & vbNewLine & "ÊëèåГ*ГІ: " & s
 
'ÏåðåìåùГ*ГҐГ¬ êóðñîð Гў ГЄГ®Г*ГҐГ¶ ëîãГ*
txtOutput.SelStart = txtOutput.SelLength
 
End Sub
 
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
 
MsgBox Description, vbCritical
Winsock1_Close
End Sub
Java
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
package com.example.client_1;
 
import java.io.DataOutputStream;
import java.io.IOException;
import java.net.Socket;
import java.net.UnknownHostException;
 
import android.app.Activity;
import android.os.Bundle;
import android.widget.TextView;
 
public class MainActivity extends Activity {
    
    TextView tvCon;
    Socket client = null;
    int cPort = 6574;
 
    @Override
    protected void onCreate(Bundle savedInstanceState) {
        super.onCreate(savedInstanceState);
        setContentView(R.layout.main);
        
        tvCon = (TextView)findViewById(R.id.tvCon);
        tvCon.setText("Cotrol Connect to Port:" + cPort);
        DataOutputStream dataOutputStream = null;
        
        try 
        {
            client = new Socket ("10.0.2.2", cPort);
            dataOutputStream = new DataOutputStream (client.getOutputStream());
            dataOutputStream.writeUTF("Отправленное сообщение от Android");
            
        }
        catch (UnknownHostException e)
        {
            tvCon.append('\n' + "Error" + e.getMessage());
            e.printStackTrace();
        }
        catch (IOException e)
        {
            tvCon.append('\n' + "Error" + e.getMessage());
            e.printStackTrace();
        }
                
    }
 
    }
Вот такая штука получилась:
Соединение устанавливается (на эмуляторе), но при отправке сообщения с Android, как я понимаю, какие-то данные приходят, т.к. во входяших сообщениях на форме VB, отображается надпись "Клиент:", после которой должно быть написано то самое сообщение, но его нет... Что не так?

Добавлено через 9 минут
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
'остановка прослушивания 
Winsock1.Close
 
'подключение клиента
Winsock1.Accept requestID
 
'запись в лог разговора
txtOutput.Text = "ЕСТЬ ПОДКЛЮЧЕНИЕ!!!"
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim s$
'прием данных
Winsock1.GetData s, vbString
 
[COLOR="Red"][B]'запись в лог разговора
txtOutput.Text = txtOutput.Text & vbNewLine & "Клиент: " & s[/B][/COLOR]
 
'фокус в конец лога
txtOutput.SelStart = txtOutput.SelLength
 
End Sub
вот кусок, который интересует, не знаю, что с комментами в полном коде VB)
я думаю, что что-то с UTF не так

Добавлено через 13 минут
Да, я пробовал заменить в Java-коде writeUTF на writeBytes и writeChars, в первом случае нормально передает только латинские буквы, вот какое сообщение приходит (B?@02;5==>5 A>>1I5=85 >B Android); во втором случае, естественно, символы.
 
Текущее время: 23:16. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru