I get an asyncronous socket error.

This is my code.

procedure TForm1.Button1Click(Sender: TObject);
var
  Item: string;
begin
  System.Assign(DataModule1.ItemFile,'items.txt');
  System.Reset(DataModule1.ItemFile);
  repeat
    System.Read(DataModule1.ItemFile,Item);
DataModule1.LTCPComponent1.SendMessage(Item,DataModule1.LTCPComponent1.Iterator);
  until EOF(DataModule1.ItemFile);
  System.Close(DataModule1.ItemFile);
end;

Why?
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.lazarus.freepascal.org/pipermail/lazarus/attachments/20080928/fe421557/attachment.html

Usuario An?nimo wrote

I don't know what a LTCPComponent is. But you could try replacing your repeat ... until loop with: while not EOF(DataModule1.ItemFile)

      begin
      ...
      end;

Howard

D?a Ne, 2008-09-28 o 20:14 +0200, Usuario An?nimo nap?sal:

You need to check if .Send or .SendMessage in your case don't return 0. If so either an error on the network occurred (reported by OnError event), or the OS send buffer is full and you need to use the OnCanSend event. For more info on sending big data see:
http://lnet.wordpress.com/usage/sockets-protocols-and-sending/

Btw. is DataModule now working properly in Lazarus? Last I tried it's things weren't visible in the OI on other units of the project.

Ales

_______________________________________________ Lazarus mailing list http://www.lazarus.freepascal.org/mailman/listinfo/lazarus

It works properly.

Michael.

I can?t fill the buffer, SendMessage never returns 0. Why?

My code:

procedure TForm1.Button1Click(Sender: TObject);
var
  Buffer: string;
  Sent: integer;
begin
  Buffer := 'START???END'; // ?> 1198469 characters
  Sent := LTCPComponent1.SendMessage(Buffer,LTCPComponent1.Iterator);
  if Sent = 0 then
    ShowMessage('Buffer full')
  else
    ShowMessage(IntToStr(Sent)); // ?> Show 1198469
end;

Best regards!

2008/9/29 Ale? Katona

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.lazarus.freepascal.org/pipermail/lazarus/attachments/20080929/9942bd92/attachment.html