＠ニフティが、P2Pの規制を強化するらしい。
規制の最前線にいる俺のようなぷららユーザーから見ると、
やっと始まったか って印象だが、
規制によりP2Pだけでなく、他の通信も遅くなる可能性もあるとかないとか。
ｶﾜｲｿｽ。 更に、光の速さって凄すぎて利用者のほとんどは、
サーバー立てるか、P2Pしまくるかのどっちかじゃないか？
普通に使うだけなら、ADSLで十分だと思うし・・・
光なのに規制されて速度でないって人 ほんとｶﾜｲｿｽ
別々のポートを使用して、分割ダウンロードすれば、
規制突破できるのかな？ なんて思ったので、
前から考えていたファイル送信ソフトを作って見る事にした・・・が、
「ポートを別々にしてもダメだった」っていう話を聞いたので、
開発中止しょぼーん
ファイル分割までがんがったのに・・・
なわけで、なんとなくソース公開してみる
「ふたまたべくたーかのん」
memoriはTMemoryStream型で、送信したいデータを読み込ませておく
Size1 := 254だっけ
CS 実験段階なのでクライアントソケット
procedure TForm1.sousin(Num1 : integer);
var
Buf : array [0..255] of char;
num : integer;
test : TMemoryStream;
begin
test := TMemoryStream.Create;
num := 65+num1;
buf[0] := char(num);
test.WriteBuffer(buf , 1);
memori.Position := 0 + size1 * Num1 ;
memori.ReadBuffer(buf,size1);
test.WriteBuffer(buf , size1);
test.Position := 0;
test.ReadBuffer( buf , test.Size );
cs.Socket.SendBuf(buf,test.Size);
test.free;
end;
最初に順番識別用文字が入ってるぉ
