UDP and MYSQL not working after Reinstall
lazarus / 38-Networking and Web Programming

----------------------------------------------------------------------
Bas · 2021-08-17 10:26

My old computer gave up so i bought a new one and reinstalled Lazarus
IDE. After recompiling software that worked before it seems iI
overlooked something and i cant figure out what. I'm using UDP Packets
to transmit and receive data from various sensors on the network and
store them in a MYSQL database. All incoming UDP packets are received
fine but no UDP packets are transmitted (checked with Wireshark).

OS = Windows 10 and using lnet UDP component for UDP comms
tried latest version of Lazarus but also installed 2.06 and 2.08 with
no difference
All firewalls are disabled
Tried disabling IPV6 with same result

All I have tried so far has the same result -> no packets transmitted

Any one have a clue in which direction I should be searching because i
ran out of options.

Regards,

Bas

----------------------------------------------------------------------
Bas · 2021-08-17 22:51

Update :

Reinstalling Windows didn't help either.

Old executable of the same software works fine

I'm Clueless

----------------------------------------------------------------------
valdir.marcos · 2021-08-18 02:58

Quote from: Bas on August 17, 2021, 12:26:52 pmMy old computer gave up
so i bought a new one and reinstalled Lazarus IDE. After recompiling
software that worked before it seems iI overlooked something and i
cant figure out what. I'm using UDP Packets to transmit and receive
data from various sensors on the network and store them in a MYSQL
database. All incoming UDP packets are received fine but no UDP
packets are transmitted (checked with Wireshark).

OS = Windows 10 and using lnet UDP component for UDP comms
tried latest version of Lazarus but also installed 2.06 and 2.08 with
no difference
All firewalls are disabled
Tried disabling IPV6 with same result

All I have tried so far has the same result -> no packets transmitted

Any one have a clue in which direction I should be searching because i
ran out of options.

Regards,

Bas
Quote from: Bas on August 18, 2021, 12:51:53 amUpdate :

Reinstalling Windows didn't help either.

Old executable of the same software works fine

I'm Clueless  It's difficult to guess without seeing your source code.
My suggestion is that you prepare and attach to this thread a very
small example that uses UDP to send and receive data to isolate your
problem and store that data to a Memo or a text file instead of MySQL.

----------------------------------------------------------------------
Bas · 2021-08-18 10:53

Even this simple program doesn't send anything

Code: [Select]unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  lNetComponents;

type

  { TForm1 }

  TForm1 = class(TForm)
    LUDPComponent1: TLUDPComponent;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private

  public

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Timer1Timer(Sender: TObject);
begin
       LUDPComponent1.SendMessage('Test','192.168.1.22:4002');
end;

end.

----------------------------------------------------------------------
Bas · 2021-08-25 17:38

Its not Lazarus or Windows related because i made a quick and dirty
version with winsock which works fine. So it looks it's something in
the lnet component.
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i unit
Unit1; {$mode objfpc}{$H+} interface uses  Classes, SysUtils, Forms,
Controls, Graphics, Dialogs, ExtCtrls, StdCtrls, 
windows,winsock2; type   { TForm1 }   TForm1 = class(TForm)    Label1:
TLabel;    Timer1: TTimer;    procedure Timer1Timer(Sender: TObject); 
private   public   end; var  Form1: TForm1; implementation {$R
*.lfm} { TForm1 } procedure TForm1.Timer1Timer(Sender: TObject); var 
MyData:WSADATA;  Rslt:Integer;  s:TSocket;  SendBuf:Array[0..3] of
AnsiChar;  clientservice:sockaddr_in;  BytesSent:Integer; begin try 
 Rslt := WSAStartup(MAKEWORD (2,2), MyData);   if Rslt = NO_ERROR
then   begin    s := socket(AF_INET, SOCK_DGRAM,0);    if s <>
INVALID_SOCKET then    begin      clientservice.sin_family :=
AF_INET;      clientservice.sin_addr.s_addr :=
inet_addr('192.168.1.22');      clientservice.sin_port :=
htons(6125);      if connect(s,clientservice,sizeof(clientservice)) <>
SOCKET_ERROR then       begin        sendbuf := 'Test';       
bytesSent := send(s,sendbuf,Length(sendbuf),0);      end else
label1.Caption:='Failed to connect';    end else
label1.caption:='Error at Socket: ';   end else label1.caption:='Error
at WSAStartup'; finally  WSACleanUp;  end; end;end.

----------------------------------------------------------------------
Bas · 2021-08-27 15:35

tested about everything 32 and 64 bit versions, older versions of
Lazarus ide, FPC,Lnet. Really not a clue where to look. Just wondering
if it got anything to do with my I9 Processor. Did anybody got Lazarus
IDE including lnet running on an I9 ?