Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: Сети
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
loki
1

Задача по ServerSocket & ClientSocket

07.05.2008, 16:45. Просмотров 972. Ответов 6
Метки нет (Все метки)

Всем кому не лень помочь в написании следующей проги, ответьте!
У меня такая задача: имеется комп подключенный к инету и мой комп подключенный к 'инетовскому' компу по локалке... мне нужно забацать такую прогу, которая бы висела на 'инетовском' компе и незаметно бы открывала мне доступ в инет! Я так понял, что мне нужен наипростейший проксик сотворить... :? Я облазил тучу разных сайтов по дельфям в поисках етой инфы, но ничего кроме мертвых ссылок не нашел!
Программеры по Дельфям, помогите кто чем может... пожалуйста...
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.05.2008, 16:45
Ответы с готовыми решениями:

ServerSocket & ClientSocket
Делал программу на основе Server/ClientSocket, сервер должен был просто...

ClientSocket & ServerSocket
подскажите как быть если у клиента и у сервера динамический ip-адресс.

ServerSocket и ClientSocket
Дайте пжл инфу или книгу электронную по ServerSocket и ClientSocket... Буду...

ServerSocket и ClientSocket
Как передать сообщение не всем а именно нужному клиенту? Например подключено к...

Проблемы с clientsocket и serversocket
Проблемы с их коннектом друг к другу! Ну чтобы нагляднее было возьмем в пример...

6
Josh_BMS
0 / 0 / 0
Регистрация: 06.08.2007
Сообщений: 18
08.05.2008, 10:59 2
ServerSocket & ClientSocket...
к серверсокет коннектишь брузер, клиентский к нужному урл
если совсем просто, то sendbuff, recivebuff...
обязательно свой?,.. или просто очень незаметный..??
0
loki
09.05.2008, 13:33 3
Мне нужен ПРОСТО проксик... Без всяких наворотов...
loki
09.05.2008, 13:46 4
Я не великий спец в написании проксей... может кто знает где можно достать исходники....
Josh_BMS
0 / 0 / 0
Регистрация: 06.08.2007
Сообщений: 18
11.05.2008, 14:15 5
это и был самый простой проксик,..., почитай про сокеты.
0
delphi
05.07.2008, 04:18 6
могу написать на заказ-))
forester
23.06.2009, 08:31 7
unit main;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Sock, ExtCtrls;

type
TFrm_Main = class(TForm)
Edit_ProxyPort: TEdit;
GroupBox1 : TGroupBox;
Label1 : TLabel;
Edit_Port : TEdit;
Label2 : TLabel;
Lbl_Threads : TLabel;
Label3 : TLabel;
Lbl_HeapFree: TLabel;
Sock : TSock;
Timer1 : TTimer;
Btn_Start : TButton;
GroupBox2 : TGroupBox;
lStat2 : TPanel;
mIPLog : TMemo;
lStat : TLabel;
Label4 : TLabel;
Button1 : TButton;

procedure Btn_StartClick(Sender: TObject);
procedure SockAutoAccept(Sender: TObject; NewSock: TSock);
procedure SockInfo(sender: TObject; SocketInfo: TSocketInfo; Msg: String);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
public
Threadcount : Integer;
end;

var
Frm_Main : TFrm_Main;

implementation

{$R *.DFM}

procedure TFrm_Main.Btn_StartClick(Sender: TObject);
begin
If Btn_Start.Caption = 'Start' Then
Begin
Sock.PortName := Edit_Port.Text;
Sock.StartListen;
Btn_Start.Caption :='Stop'
Label1.Enabled := False;
Edit_Port.Enabled := False;
End
Else
Begin
Sock.StopListen;
Btn_Start.Caption := 'Start'
Label1.Enabled := True;
Edit_Port.Enabled := True;
End;
end;

procedure TFrm_Main.SockAutoAccept(Sender: TObject; NewSock: TSock);
Var
Content : String;
Temp : String;
CSock : TSock;
NSock : TSock;
SL : String;
HN,PT : String;
Rm : String;
Pl : Integer;
begin
Inc(ThreadCount);
Lbl_Threads.Caption := IntToStr(ThreadCount);
CSock := TSock.Create(Self);
Nsock := TSock.Create(Self);
Try
Try
Content := ''
SL := ''
Rm := ''
Repeat
Temp := NewSock.Text;
If Temp <> '' Then
Begin
// Incoming Data
Content := Content + Temp;
Temp := ''
If (SL = '') And (Pos('HTTP/', Content) > 0) Then
Begin
SL := Copy(Content, 1, Pos('HTTP/', Content)+1);
Delete(Content, 1, Length(SL));
// Parse SL To Connect To The Server
Rm := Copy(Sl, 1, Pos('http://', Sl)-1);
Delete(Sl, 1, Pos('http://', Sl)+6); // Don't Need http://
PT := '80'
Pl := Pos(':', Sl);
If (Pl > 0) And (Pl < Pos('/', Sl)) Then
Begin
// There's A Port Number
HN := Copy(Sl, 1, Pos(':', Sl)-1);
Delete(Sl, 1, Pos(':', Sl));
PT := Copy(Sl, 1, Pos('/', Sl)-1);
Delete(Sl, 1, Pos('/', Sl)-1);
End
Else
Begin
HN := Copy(Sl, 1, Pos('/', Sl)-1);
Delete(Sl, 1, Pos('/', Sl)-1);
End;

mIPLog.Lines.Add('Request: '+HN
23.06.2009, 08:31
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.06.2009, 08:31

ServerSocket и ClientSocket Chat
Решил написать маленький чатик для общения по локальной сети на работе=) Но...

Стандартный ServerSocket и ClientSocket
При первой активизации ClientSocket выводит ошибку: ' Windows socket Error:...

Dll и ClientSocket/ServerSocket
Есть клиентское приложение с Buttom, edit,label и clientsocket. Как сделать...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru