Mam problem z przesyłaniem danych czy ma ktos moze jakiegos gotowac zebym sobie obczail co i jak :) Robilem wg informacji z dokumentacji są problemy, dochodzi do połowy i nic ?!
Wyszukiwarka+5 sekund wolnego czasu=http://4programmers.net/view.html?id=39
Na następny raz, wykaż choć TROSZKĘ własnej inicjatywy...
Ehhhhhhh bylo napisane przeciez ze zrobilam tak jak tu pisze i mi nie dział !!!!! i prosilem zby jesli ktos moze przesłał mi zrobiony taki projet !
rex8@go2.pl :-/
Ech, a od czego jest F1? Od czego są google? Od czego jest mózg? Piszesz trojana? powodzonka!
Ehhhhhhh bylo napisane przeciez ze zrobilam tak jak tu pisze i mi nie dział !!!!! i prosilem
Rozdwojenie jaźni? [diabel] [diabel] [diabel]
jesli ktos moze przesłał mi zrobiony taki projet !
A może byś tak popatrzył(a?) w artykułach? Tam jest gotowy kod.
o to chodzi??
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ScktComp, StdCtrls;
type
TForm1 = class(TForm)
ClientSocket1: TClientSocket;
ServerSocket1: TServerSocket;
btnTestSockets: TButton;
procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure ClientSocket1Disconnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure btnTestSocketsClick(Sender: TObject);
private
FStream: TFileStream;
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
iLen: Integer;
Bfr: Pointer;
begin
iLen := Socket.ReceiveLength;
GetMem(Bfr, iLen);
try
Socket.ReceiveBuf(Bfr^, iLen);
FStream.Write(Bfr^, iLen);
finally
FreeMem(Bfr);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
FStream := nil;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
if Assigned(FStream) then
begin
FStream.Free;
FStream := nil;
end;
end;
procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
if Assigned(FStream) then
begin
FStream.Free;
FStream := nil;
end;
end;
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
FStream := TFileStream.Create('c:\temp\test.stream.html', fmCreate or fmShareDenyWrite);
end;
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Socket.SendStream(TFileStream.Create('c:\temp\test.html', fmOpenRead or fmShareDenyWrite));
end;
procedure TForm1.btnTestSocketsClick(Sender: TObject);
begin
ServerSocket1.Active := True;
ClientSocket1.Active := True;
end;
end.
wiesz jakoś moje zdolności do jasnowidzenia zanikają, więc może byś przytoczył kawałek, kodu ktory ci nie działa