Postavis na formu IdTCPServer komponentu. Dupli klik na Bindings->New. Izaberes IP i port pa OK. Podesi u properties Active na True. Sada klikni na IdTCPServer i u events-ima dupli klik na OnExecute:
Code:
procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
MojStrim: TMemoryStream;
begin
MojStrim := TMemoryStream.Create;
try
AContext.Connection.IOHandler.ReadStream(MojStrim, -1, True);
//Radi nesto sa strimom ovde
finally
MojStrim.Free;
end;
end;
Napomena: ovo cita poslati Memory stream iz npr. IDTCPClient komponente.
[Ovu poruku je menjao Rawn dana 08.10.2012. u 19:33 GMT+1]