C++ -> Delphi

0

Czy umiałby ktoś przełożyć na delphi następujący kod?

int len;
Socket-&gtReceiveBuf(&len, sizeof(len)); // odbierz rozmiar pliku
char * buffer = new char[len];
Socket-&gtReceiveBuf(buffer, len);
TFileStream * Stream = new TFileStream("c:plik.mp3", fmOpenWrite);
Stream-&gtWrite(buffer, len-1);
delete [] buffer;
delete Stream;

byłbym bardzo wdzięczny, bo zaraz chyba wywalę kompa przez okno :[---------------------------
Delphi 6

Pozdrówka

0

Wiesz co, nie mam pojęcia co ty chcesz zrobić z tym kodem (C++) ale jakbyś powiedział (wytłumaczył to) to napisze te linijki kodu :) BTW. Rozumiem, że chcesz pobrać rozmiar pliku (no problem, ale co z dalszymi linijkami?????)

0

To jest kod do odbierania muzyki z radia internetowego.---------------------------
Delphi 6

Pozdrówka

0

deklaracja zmiennych:
var len: integer;
buffer: char;
Stream: TFileStream;

reszta:
cs.Socket.ReceiveBuf(^len, sizeof(len));
buffer:=char[len]; ????????????????????????????????
cs.Socket.ReceiveBuf(buffer,len);
Stream:=TFileStream.Create("c:\plik.mp3", fmOpenWrite);
Stream.Write(buffer,len-1);
buffer.free;
Stream.free;

zakładając, że ma się TServerSocket lub TClientSocket o nazwie cs

działanie jest raczej wątpliwe, ponieważ trzeba to wpleść w OnRead socketa--Delphi 6
Pozdrowienia,
Imperior

0

siup do gory

// łoł refleks ;] ja myslę, że thenkles już dawno zapomniał o tym poście, w końcu miał na to prawie 3 lata [mf]

1 użytkowników online, w tym zalogowanych: 0, gości: 1