mit Synapse 40 & der Lazarus IDE habe ich einen simplen FTP Server als Anwendung gebaut.
Ausgegangen bin ich von den originalen Synapse Beispielcodes.
Unter Win 10 läuft das Teil schnell und ohne Fehler im lokalen Netz.
Unter Linux Mint habe ich die Linuxversion gebaut, da geht nichts.
Synapse Socket.CanRead(1000) ist immer false, egal wie ich das Netzwerk einstelle.
Hat jemand eine Lösung ?
Code: Alles auswählen
begin
ListenerSocket := TTCPBlockSocket.Create;
ConnectionSocket := TTCPBlockSocket.Create;
ListenerSocket.CreateSocket;
ListenerSocket.setLinger(true,10);
ListenerSocket.bind('0.0.0.0','1500');
ListenerSocket.listen;
repeat
if ListenerSocket.canread(1000) then
begin
ConnectionSocket.Socket := ListenerSocket.accept;
//......
ConnectionSocket.CloseSocket;
end;
until false;
ListenerSocket.Free;
ConnectionSocket.Free;
end.