WallPaper og Winshoes

Brug dette til baggrunden: SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar(\'c:\\billede.bmp\'), 0);

Til dit winshoes prob ved jeg ikke lige ...

jeg har et billede her: c:\\test.bmp men når jeg skriver den sti sker der ikk noget :-(

fordi den ikke kan skrifte baggrund. har du active desktop slået til???

/ZIRON

ja det er slået til

prøv med dette:

USES SHLOBJ;
procedure ChangeActiveWallpaper;
const
  CLSID_ActiveDesktop: TGUID = \'{75048700-EF1F-11D0-9888-006097DEACF9}\';
var
  ActiveDesktop: IActiveDesktop;
begin
  ActiveDesktop := CreateComObject(CLSID_ActiveDesktop)
    as IActiveDesktop;
  ActiveDesktop.SetWallpaper(\'c:\\her_dti_billed_er.jpg\', 0);
  ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
end;

/ZIRON

nåh nu virker det, det var fordi jeg fik det vist som hjemmeside.

I stedet for det der winshoesnoget så: Er der en der kender en god måde at overføre filer mellem 2 computere på?

prøv at kigge denne kode igennem:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    ClientSocket1: TClientSocket;
    ServerSocket1: TServerSocket;
    Button1: TButton;
    procedure Image1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ClientSocket1Connect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ServerSocket1ClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
  private
    { Private declarations }
    Reciving: boolean;
    DataSize: integer;
    Data: TMemoryStream;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Image1Click(Sender: TObject);
begin
  // This is the procedure to open the socket for RECEIVING.
  // Button1.Click is this procedure as well.
  ClientSocket1.Active:= true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Open the SENDING socket.
  ServerSocket1.Active:= true;
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  // Send command to start the file sending.
  Socket.SendText(\'send\');
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
  s, sl: string;
begin
  s:= Socket.ReceiveText;
  // If we\'re not in recieve mode:
  if not Reciving then
  begin
    // Now we need to get the length of the data stream.
    SetLength(sl, StrLen(PChar(s))+1); // +1 for the null terminator
    StrLCopy(@sl[1], PChar(s), Length(sl)-1);
    DataSize:= StrToInt(sl);
    Data:= TMemoryStream.Create;
    // Delete the size information from the data.
    Delete(s, 1, Length(sl));
    Reciving:= true;
  end;
  // Store the data to the file, until we\'ve received all the data.
  try
    Data.Write(s[1], length(s));
    if Data.Size = DataSize then
    begin
      Data.Position:= 0;
      Image2.Picture.Bitmap.LoadFromStream(Data);
      Data.Free;
      Reciving:= false;
      Socket.Close;
    end;
  except
    Data.Free;
  end;
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  ms: TMemoryStream;
begin
  // The client wants us to send the file.
  if Socket.ReceiveText = \'send\' then
  begin
    ms:= TMemoryStream.Create;
    try
      // Get the data to send.
      Image1.Picture.Bitmap.SaveToStream(ms);
      ms.Position:= 0;
      // Add the length of the data, so the client
      // will know how much data to expect.
      // Append #0 so it can determine where the size info stops.
      Socket.SendText(IntToStr(ms.Size) + #0);
      // Send it (the socket owns the stream from now on).
      Socket.SendStream(ms);
    except
      // So only free the stream if something goes wrong.
      ms.Free;
    end;
  end;
end;

end.

/ZIRON

det ska helst ik være det som er med i delphi da jeg helst vil kunne tjekke det på min egen computer som man ka med winshoes, og dét ka jeg ikk med den fra delphi

hvad, den fik jeg ikke fat i???

/ZIRON

...eller hvis man kunne lave en FTP server sådan at den ene bruger ka se den serverens harddisk og så kan uploade og downloade ting

ziron>> jeg ka med winshoes componenterne have både server og client program på EN computer og så alligevel teste om det virker det ka man ikk med de andre

hmmm okay, så lad mig være test person :-)

det med ftp kan du da godt lave, men lav lige en ftp server :-)

jeg tror det er et lidt stører projekt :-( men jeg vil godt have den når den er færdig...

/ZIRON

lige meget om jeg bruger den ene ting eller den anden skulle det meget gerne ende med at jeg ka se den ene computers harddisk og uploade/downlaode ting

så ville jeg nok vælge at lave det som ftp, jeg prøver lige at kigge efter lidt ftp..

/ZIRON

prøv at se et kig her:

http://www.xs4all.nl/~dgb/delftp.html

/ZIRON

http://www.torry.net/vcl/internet/ftp/ddtftp.zip

jeg har prøvet at kigge lidt på den server jeg skrev men ved ikk hvor god den er :-(

k kigger lige...

/ZIRON

nu har jeg fået den til at virke :-)

okay, kan du lave enb client???

/ZIRON

nææh og jeg ka ikk se harddisken med delphidemoen

k kigger lige...

hmmm den ser da godt nok lidt underlig ud :-(

/ZIRON

hvilken?

den ftp server...

/ZIRON

nåh men nu har jeg fået det til at virke :-)

okay, hvad gjorde du??? for det jeg har prøver virker ikke??+

/ZIRON

først opretter man en bruger og så opretter man en mappe og fortæller at den bruger man har lavet har rettigheder til den mappe og om brugeren må læse og skrive osv. og så ka man se det i sin FTP browser, men den viser ikk de allerede eksisterende mapper :-(

hvordan får man den til at vise eksisterende mapper??

arrr så har jeg gjort det rigtig, men jeg ved sku ikke det andet... har ikke kigget på koden enbdnu, kigger nok lidt senere...

/ZIRON

jeg synes det virker lidt underligt at man kun ka se de mapper som man selv opretter og ikk nogen af de andre!! er det noget du vil se på, på et tidspunkt, så det ka lade sig gøre??

ja jeg vil godt lige prøve at se på det lidt senere...

/ZIRON

øøh jeg tror jeg vil bruge en anden måde end den der FTP metode den er for ustabil så jeg tror helere jeg vil vide hvordan man kan finde ud af hvilke mapper der er i en mappe eller i et drev og hvilke filer der er ???

ja okay, bare iorden :-)

/ZIRON

ved du hvordan man får det afvidE?

cautoo: I FTP er det jo \'dir\'
hvis du selv vil skrive serveren bestemmer du jo selv, hvordan du vil retunere dem.