Я просто не правильно выразился.
Суть состоит в том, чтобы подключиться к удаленной машине на определенный порт. На компе запущена программа, которая прослушивает этот порт(сокет в асинхронном режиме).
Мидлет должен подключиться к компу, передать ему данные и закрыть соединение.
program Therminal;
uses socket;
var
s: string;
b:integer;
begin
if socket.open('socket://10.100.2.202:1030')<>0 then
Debug('Error');
//зависает здесь, даже если убрать цикл
while socket.available=0 do begin
delay(100);
end;
delay(1000);
b:=socket.write(80);
drawtext('sent',10,15);
socket.close;
drawtext('closed',0,30);
delay(10000);
end.
На эмуляторе все работает, а на мобиле(Moto c650) заклинивает.
Хотя судя по логу MIDWay ошибок нет:
AMS: VM_APPLICATION_STATE_CHANGED, 0
->AMS_VM_SynchronizeStates(): desired state=272281572, stable=0
<-AMS_VM_SynchronizeStates(): desired state=272281572, stable=0
AMS: VM_APPLICATION_STATE_CHANGED, 10
->AMS_VM_SynchronizeStates(): desired state=272281572, stable=0
<-AMS_VM_SynchronizeStates(): desired state=272281572, stable=0
AMS: VM_APPLICATION_STATE_CHANGED, 20
->AMS_VM_SynchronizeStates(): desired state=272281572, stable=0
<-AMS_VM_SynchronizeStates(): desired state=272281572, stable=1
KJAVA Key Event: 22; 0
[Socket] open0()
[ProxyMan] NET_ParseResource no protocol specified
[ProxyMan] NET_ParseResource host:10.100.2.202
[ProxyMan] NET_ParseResource port:1030
[Socket] NET_CreateTcpProxy(resource:0x3fdbbe0, nextProtocol:0)
KJAVA Key Event: 22; 1
[ProxyMan] NET_ProcessProxyMsg(suapiType:0x821b1, msgHandler:0)
[Socket] NET_TcpNetworkEvent(ind=532913, msg=1205679c, index=0)
[Socket] NET_TcpNetworkEvent proxy create success proxyId=1
[Socket] net_SetProxyAttributes(index:0, setLinkAttributes:1 )
[DnsIp] NET_GetStaticDnsIp DNS_IP:202.056.231.117
[Profile] NET_GetProfileInfo(profileIndex:0, profile:12067986)
[Socket] net_SetProxyAttributes - line=0 csd_number= apn=internet.mts.ru user=mts pwd=mts
[ProxyMan] NET_ProcessProxyMsg(suapiType:0x821b4, msgHandler:0)
[Socket] NET_TcpNetworkEvent(ind=532916, msg=12056964, index=0)
[Socket] NET_TcpNetworkEvent proxy set attribute success proxyId=1
//Зависает здесь
//Далее нажимаю "отбой"
VB: inside JkDeviceStopVibration()
->AMS_VM_ChangeDesiredState(): 272281780
->AMS_VM_SynchronizeStates(): desired state=272281572, stable=0
<-AMS_VM_SynchronizeStates(): desired state=272281572, stable=0
VB: inside JkDeviceStopVibration()
VB: JkDeviceStopBacklightFlash()
AMS: VM_APPLICATION_STATE_CHANGED, 21
VB: VMproxyResetBacklight()
VB: JkDeviceStopBacklightFlash()
->AMS_VM_SynchronizeStates(): desired state=272281572, stable=0
<-AMS_VM_SynchronizeStates(): desired state=272281572, stable=0
AMS: VM_APPLICATION_STATE_CHANGED, 1
->AMS_VM_SynchronizeStates(): desired state=272281572, stable=0
<-AMS_VM_SynchronizeStates(): desired state=272281572, stable=1
->AMS_VM_ChangeDesiredState(): 272281780
->AMS_VM_SynchronizeStates(): desired state=272281572, stable=0
<-AMS_VM_SynchronizeStates(): desired state=272281572, stable=0
AMS: VM_APPLICATION_STATE_CHANGED, 2
AMS: VM_APPLICATION_STATE_CHANGED, 23
VB: inside JkDeviceStopVibration()
AMS: VM_APPLICATION_STATE_CHANGED, 3
VB: JkDeviceStopBacklightFlash()
AMS: AMS_VM_START_RETURNED, 1
->AMS_VM_SynchronizeStates(): desired state=272281572, stable=0
<-AMS_VM_SynchronizeStates(): desired state=272281572, stable=1
[Socket] NET_ResetTcpSockets()
[ProxyMan] NET_DeallocateEntry destroy proxy profile_index:0
->AMS_VM_SynchronizeStates(): desired state=272281572, stable=1
<-AMS_VM_SynchronizeStates(): desired state=272281572, stable=1
[JkHttp] NET_HttpInteractionEvent(index:0, indication:5, data:0)
[JkHttp] NET_HttpInteractionEvent state:0
[JkHttp] NET_HttpInteractionEvent FREE_TABLE_EVENT
VB: JkDeviceStopBacklightFlash()
->AMS_VM_SynchronizeStates(): desired state=272281572, stable=1
<-AMS_VM_SynchronizeStates(): desired state=272281572, stable=1
AMS: AMS_SUITE_DATA_SIZE, 5439
AMS: MSM_ST_WRREC
DATAFLOW: 1
AMS: AMS_HEAP_RELEASED_TR