Ako nece ni tako, preostaje mi winsock
edit: osnovni dio servera je vec napravljen:
Code:
program Passwd_Server;
{$APPTYPE CONSOLE}
uses
SysUtils,
Winsock;
var sock:TWSAData;
error:Integer;
m_socket:TSocket;
AcceptSocket:TSocket;
service:Sockaddr_in;
begin
error:=WSAStartUp(2,sock);
case error of
0:begin
//glavni kod ide ovdje
m_socket:=socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
if m_socket=INVALID_SOCKET then
begin
WriteLn('Problem sa socketom!');
ReadLn;
WSACleanUp;
exit;
end;
service.sin_family:=AF_INET;
service.sin_addr.s_addr:=inet_addr( '127.0.0.1' );
service.sin_port:=htons(13);
try
bind(m_socket,service,SizeOf(service));
except begin
WriteLn('Problem sa postavljanjem servera!');
ReadLn;
CloseSocket(m_socket);
exit;
end; end;
if listen(m_socket,1)=SOCKET_ERROR then
begin
WriteLn('Problem pri osluskivanju konekcije!');
ReadLn;
end else begin
WriteLn('Cekam klijenta da se spoji...');
AcceptSocket:=SOCKET_ERROR;
while AcceptSocket = SOCKET_ERROR do
begin
AcceptSocket:=accept( m_socket, nil, nil );
end;
end;
WriteLn('Klijent je spojen!');
m_socket:=AcceptSocket;
end
else begin
WriteLn('Problem pri povezivanju sa WinSock-om!');
end;
end;
WSACleanUp;
ReadLn;
end.
Al u svakom slucaju ako nadjes one fajlove il uzrok onom problemu..radje cu radit sa Indy komponentama
[Ovu poruku je menjao Passwd dana 02.01.2006. u 13:08 GMT+1]