Heeft iemand ervaring met lazarus en WinCE projecten? En daarenboven ook met een gewone TCP connectie maken vanop het WinCE platform?
Na wat zoeken heb ik de SSockets unit ontdekt, en ik probeer dit, maar na een tijdje geeft dit gewoon een 'Access violation' exception ter hoogte van de read:
Delphi Code:
var
con:TInetSocket;
s:AnsiString;
i:integer;
begin
try
Button1.Caption:='Connecting...';
Update;
con:=TInetSocket.Create('SERVER1',12345);
Button1.Caption:='Connected';
Update;
try
s:='test'#13#10;
Button1.Caption:=IntToStr(con.Write(s[1],Length(s)));
SetLength(s,1000);
i:=con.Read(s[1],1000);
if i=-1 then RaiseLastOSError;
SetLength(s,i);
ListBox1.Items.Add(IntToStr(i)+s);
finally
con.Free;
end;
except
on e:Exception do
begin
ListBox1.Items.Add('###'+e.ClassName);
ListBox1.Items.Add(e.Message);
end;
end;
Bookmarks